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RAPPELS SUR LES GRAPHIQUES AMSTRAD 


La gestion des couleurs sur AMSTRAD est particulière. Pour la plupart des instructions 
graphiques ce n'est pas le numéro de la couleur qui est spécifié, mais un numéro de 
case d'une table de correspondance qui contient les numéros des couleurs. 


Case 0 1 ° numéro de couleur 
Case 1 4 

Case 2 11 

Case 3 6 


Le programmeur peut modifier (par INK) les numéros des couleurs de la table de cor- 
respondance qui, à la mise sous tension, contient des numéros des couleurs par défaut. 


Suivant la résolution choisie (par MODE) 640+200,320+200 ou 150+200, 2, 4 ou 16 
couleurs parmi 27 peuvent être utilisées simultanément. 


En changeant le numéro de couleur d'une case, tout ce qui a été dessiné par l'inter- 
médiaire de cette case change instantanément de couleur. 


Les CPC 664 et 6128 possèdent quelques instructions supplémentaires : 


FILL couleur Remplit une figure fermée. 

MASK format Permet le dessin de pointillés. 

GRAPHICS PAPER papier Définit la couleur du papier pour les graphiques. 
GRAPHICS PEN stylo Définit le stylo par défaut pour les graphiques. 
CURSOR 1 Fait apparaître le curseur pour INKEYS$. 
COPYCHRS (#fenèêtre) Fournit un caractère affiché à l'écran. 

FRAME Synchronise l'affichage des points d'un caractère. 
DERR Donne les codes d'erreur pour le disque. 

ON BREAK CONT Inhibe les interruptions de programme par ESC. 


MODE numéro 


Définit le mode écran choisi : 
MODE 0 : 20 caractères par ligne / 200*160 points 16 couleurs. 
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MODE 1 : 40 caractères par ligne / 200x320 points 4 couleurs. 
MODE 2 : 80 caractères par ligne / 200+640 points 2 couleurs. 


INK case couleur,couleur 


Définit les couleurs de la table de correspondance des couleurs. 


19 INK 1,2 couleur 2(bleu vif) dans case couleur 1 
20 INK 2,6 couleur bi(rouge vif) dans case couleur 2 


En MODE 2 seules les cases 0 et 1 sont utilisables. 
En MODE 1 seules les cases 0,1,2,3 sont utilisables. 
En MODE 0 les 16 cases sont utilisables. 


Table de correspondance des couleurs à la mise sous tension : 














Mode2 Mode Mode0 Couleurs 
0 1 1 1 0 noir 14 bleu pastel 
Î 24 24 24 1 bleu 15 orange 
2 1 20 20 2 bleu vif 16 rose 
3 24 6 6 3 rouge 17 magenta pastel 
4 1 1 26 4 magenta 18 vert vif 
5 24 24 0 5 mauve 19 vert marin 
6 Î 20 2 6 rouge vif 20 turquoise vif 
7 24 6 8 7 pourpre 21 vert citron 
8 Î 1 10 8 magenta 22 vert pastel 
g 24 24 12 9 vert 23 turquoise 
10 1 20 14 10 turquoise 24 jaune 
11 24 6 16 11 bleu ciel 25 jaune pastel 
12 1 1 18 12 jaune 26 blanc brillant 
13 24 24 22 13 blanc 
14 1 20 1,24 
15 24 6 16,11 














En MODE 2 par exemple, si vous changez la couleur de la case 0, la couleur de la case 
2 est également changée. 


PAPER #fenêtre,case couleur 
PEN #fenêtre,case couleur 


Permet de choisir les “cases couleur” de la table de correspondance des couleurs pour 
l'écriture du texte. A la mise sous tension, PAPER pointe vers la case 0 et PEN vers la 
case 1. 


Si vous frappez “PEN 2” (en MODE 1), la couleur d'écriture du texte se fait avec la 
couleur de la case 2 de la table des couleurs. 
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PLOT X,Y,case couleur 


Allume le point X,Y spécifié avec la case couleur (stylo) spécifiée. 


10 MODE 1! 

20 INK 0,26 ‘ blanc dans case 0 

S0 INK 1,0 " noir dans case 1 

40 INK 2,6 ‘ rouge dans case 2 

50 PLOT 100,100,1 ‘ point 100,100 avec stylo 1{noir) 


60 PLOT 120,120,2 ‘ point 120,120 avec stylo 2(rouge) 


L'origine de l'écran est en bas à gauche. X doit être compris entre 0 et 639. Y doit être 
compris entre 0 et 399. 


Les coordonnées spécifiées sont INDÉPENDANTES de la résolution choisie par MODE. 
Seule la taille du point varie. 
Y 


399 


100 |____m 100,100 





—» X 


0 100 639 


Piège : si vous tentez d'utiliser le stylo 4 en MODE 1, vous utilisez en réalité le stylo O. 
Naturellement, le point n'apparaît pas. 





A la mise sous tension, si la “case couleur” (stylo) n'est pas spécifiée dans l'instruction 
PLOT, la case par défaut est la case 1. 


En cours de programme, c'est le dernier stylo spécifié qui est utilisé par défaut. 


Il est vivement conseillé de spécifier un stylo. En effet, dans le cas contraire, si un 
programme précédent a utilisé le stylo O, la trace n'apparaîtra pas. 


DRAW X,Y,case couleur 


Trace une droite entre le point courant et le point spécifié (en absolu). 


10 MODE 1! 

20 INK 0,1 " bleu dans case 0 

30 INK 1,24 ‘ jaune dans case |! 

40 PLOT 100,100,1 ‘ point 100,100 

99 DRAH 200,200,1 ‘ droite entre 100,100 et 200,200 


Y 
200,200 


100,100 
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PLOTR DX,DY,case couleur 
DRAWR DX,DY,case couleur 


Ces instructions spécifient des déplacements relatifs au point courant. 


19 MODE 1! 

20 INK 0,26 ‘ blanc dans case © 

30 INK 1,0 ‘ noir dans case ! 

40 INK 2,6 ‘ rouge dans case 2 

90 PLOT 106,100,1 ‘ point 100,100 

60 DRAUWR 50,50,1 ‘ droite entre 100,106 et 150,150 
70 DRAUWR 50,0,2 ‘ droite entre 150,150 et 200,150 


La première droite est dessinée avec le stylo 1 (noir), et la seconde avec le stylo 2(rouge). 


Y 


150,150 
200,150 


100,100 





Si vous aviez utilisé le stylo numéro 4, les droites n'auraient pas été tracées. En MODE 
1, le stylo 4 est en réalité le stylo O. 


MOVE X,Y 
MOVER DX,DY 


Positionne le curseur graphique sans dessiner. Le CPC 664 dispose du paramètre 
“stylo”. 


TAG 
TAGOFF 


TAG spécifie que l'écriture du texte doit se faire avec le curseur graphique. 


TAGOFF annule TAG ; l'affichage du texte se fait avec le curseur texte (positionné par 
LOCATE X,Y). 


Pour empêcher l'affichage des caractères CHR$(10) et CHR$(13), l'instruction PRINT 
doit être suivie d’un point-virgule. 


19 MODE 1 

20 TAG 

30 MOVE 100,100:PRINT "AAAAAAA'; affiche en 100,100 
40 TAGOFF 

90 LOCATE 1,1:PRINT "BBBBBBRB" avec curseur texte 
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Le programme ci-dessous fait défiler un message. Sans TAG l'affichage ne serait pas 
aussi précis. 


19 ! AFFICHAGE AVEC TAG 


30 MODE 1! 

40 INK 0,26:INK 1,0 

930 DIM X(100),Y(100) 

bQ A$f="AMSTRAD.....AMSTRAD...,.... cree : 
70 R=100 

80 XC=200:YC=200 

90 FOR I=1 TO 30 

100  A=PI+I1/30%2 

110 XCI)=R4COS(A)#1,5+XC 

120  Y(I)=RXSIN(A)+YC 

130 NEXT I 

140 ‘---- ROTATION 

150 FOR I=1 TO 30 

160 MOVE X(I),Y({I) 

170 TAG:PRINT MID$F(A$,I,1); 

180 NEXT I 

190 A$=RIGHT$(A$,1)+LEFT$(A$,LEN(A#)-1) 
200 GOTO 150 


D ART 
ut 5 pq 
; ñ 


ORIGIN X,Y,gauche,droite,haut,bas 


Redéfinit l’origine pour le curseur graphique et une fenêtre graphique si les paramètres 
“gauche”, “droite”, “haut” et “bas” sont spécifiés. 


10 MODE 1 

20 ORIGIN 100,100 " origine en 100,100 

30 PLOT 1,1,1 

40 DRAW 100,100 " 100,100 a partir de la nouvelle origine 


10 MODE 1:INK 0,26:INK 1,0:INK 2,2 

20 ORIGIN 200,100,200,350,100,250 " fenetre graphique 
25 CLG 2 

30 PLOT 1,1,1 

40 DRAW 50,50,1 
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CLG papier 
Efface l'écran graphique. 


TEST (X,Y) 
TESTR (X,Y) 


Donne le numéro de stylo avec lequel un point a été allumé. 


10 MODE 1 

20 PLOT 100,100,1 

30 PLOT 200,200,2 

40 PRINT TEST(100,100) 
50 PRINT TEST(200,200) 


RUN 

1 

2 

Le programme ci-dessous recopie un écran sur imprimante EPSON. 

2000. esse RECOPIE D'ECRAN SUR IMPRIMANTE EFSON (mode ji) 


2004 WIDTH 255 

2005 PRINT #8,CHR$(27):;"3";CHR$ (10) 

2010 DEFINT A-Z 

2020 DIM LG(320) 

2030 LN=:599 ligne 

2040 FOR LG=i TO 30 

2050 FOR X=0 TO 319 

2060 LG(X)=0 

2070 FOR F=0 TO 6 

2080 IF TEST(X#2,LN-P#2):;0 THEN LG(X)=LG(X)+(2*(6-P)) 
2090 NEXT P 

2100 NEXT *X 

2110 PRINT #8,CHR#(27)3;"E":;CHR# (64): CHR$ (1): 
2120 FOR 2=0 TO 319:PRINT #8,CHR$#(LG(Z))3;:NEXT 2 
2130 PRINT #8 

2140 LN=LN-14 

2150 NEXT LG 

2160 PRINT #8,CHR$(15) 


STONE esse re ressss pour MODE 2 
2180 ‘ 2080 IF TEST(x,LN-P#2);0 THEN .,..,.. 
2190 ‘ Prevu pour cable AMSTRAD (adapter 2005 pour autres cables) 


WINDOW #numéro fenêtre, gauche,droite,haut,bas 


Définit une fenêtre pour le texte. Dans l'exemple ci-dessous, l'écriture du texte dans la 
fenêtre 1 se fait en blanc sur fond rouge. 


10 -------- FENETRE 
20 MODE 1 

30 INK 0,26 

46 INK 1,0 

50 INK 2,6 


60 INK 3,26 — 
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7Q ‘---- fenetre 1 

80 WINDOW #1,20,40,1,12 ‘ fenetre col 20 et 40-ligne {1 et 12 
90 PAPER #1,2:CLS #i 

190 PEN #1,7 " stylo 3 pour fenetre 1 
119 PRINT #1,"Fenetre 1" 

120 PRINT #1,"Ecriture blanche" 

130 PRINT #i,"sur fond rouge" 

14Q. ==: fenetre 2 (dans fenetre 1) 
150 WINDOW #2,:0,38,6,11 

160 PAPER #2,0:CLS #2 

170 PRINT #?."fenetre 2" 


Une fenêtre définie à l'intérieur d'une autre n’est pas protégée contre une écriture dans 
la fenêtre où elle est incluse. 


La fenêtre par défaut “#0” recouvre tout l'écran. Naturellement, les bornes de cette 
fenêtre peuvent être changées. 


INSTRUCTIONS SPÉCIFIQUES AUX CPC 664 ET 6128 


Sur CPC 664 et 6128, MOVE possède un paramètre “stylo”. 


Les instructions PLOT, DRAW et MOVE disposent d'un paramètre “opération” supplé- 
mentaire. Ce paramètre égal à 0, 1, 2 ou 3 permet de combiner un tracé existant avec 
un nouveau tracé en utilisant une opération XOR,AND,OR. Par exemple, si vous tracez 
une droite sur une droite existante avec l'opération XOR(OU exclusif), l'ancien tracé 
disparaît (0=nul 1=XOR 2=AND 3=OR). 


PEN possède un paramètre “mode transparent” qui annule l'effet de PAPER. 


19 MODE 1:INK O,26:INE 1,0:INK 2,6 
20 PAFER O:PEN i 
30 PRINT "AAAAA" 


9 ‘Te 


40 FAPER 2 

30 PEN 1! " essayer avec PEN 1,1 
60 PRINT "BEEBBE" 

70 PFAFER 0 

FILL stylo 


Remplit une figure fermée avec le stylo spécifié. Le curseur doit être positionné avec le 
stylo qui a servi à tracer la figure. En revanche, le stylo spécifié dans FILL peut être 
différent. 


10 =sResssss FILL 
20 MODE 1! 
30 CE=i * Couleur ecriture 


40 INK 0,26:INK 1,0:INK 2,20 

50 PLOT 100,100,CE 

60 DRAWR 50,0,CE 

70 DRAWR 0,50,CE 

80 DRAUWR -50,0,CE 

90 DRAWR 0,-50,CE na 
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100 ‘----------------- remplissage carre 

110 MOVER 10,10,CE ‘ Positionnement curseur 
120 C=1 " Stylo remplissage 

130 FILL C 

140 


150 ‘ La couleur de remplissage peut etre differente de la 
couleur du contour 
160 ‘ ex:C=2 


MASK masque,premier point 


Le tracé des droites est effectué avec le pointillé défini en binaire par “masque”. Si 
“premier point” est égal à 1, celui-ci apparaît. 


19 MODE 1! 

20 MASK &X10101010 
30 PLOT 100,100 

40 DRAW 200,200,1 

90 MASK &X1111000 

69 DRAW 300,200,1 


COPYCHRS (#no fenêtre) 
Donne le caractère affiché sous le curseur. 


10 MODE 1 

20 LOCATE 10,10:PRINT "ABC" 

30 LOCATE 10,10:X$= COPYCHRS (#0) 
40 LOCATE 1,203:PRINT X$ 


Sur CPC 464, le programme suivant donne le contenu des 8 octets représentant un 
caractère. 


10 ‘ COPYCHR$ SUR CFC464 
20 MODE 2 
30 X=1 
40 Y=1 
90 LOCATE X,Y:PRINT "ABCDE" 
69 ” 
70 FOR AM=49152+X-1+(Y-1)*x80 TO 65534 STEP 2048 
80 M=PEEK(AM) 
90 PRINT BIN$(M,8) 
100 NEXT AM 
ARCDE 
00011000 
00111100 
01100110 
01100110 
01111110 
01100110 
01100110 
00000000 
Ready 
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GRAPHICS PAPER stylo 
Définit la couleur de fond sur laquelle les droites en pointillé sont dessinées. 


10 MODE 1 

20 INK 0,26:INK 1,0:INK 2,14 
30 GRAPHICS PAPER 2 

40 MASK &X11110000 

950 PLOT 100,100:DRAW 200,200,1 


GRAPHICS PEN stylo,mode transparent 


Définit le stylo utilisé par défaut pour les instructions graphiques. Si “mode transparent” 
est égal à 1, l'effet de GRAPHICS PAPER est annulé. 


FRAME 
Synchronise l'affichage des points d'un caractère affiché avec TAG. 
CURSOR mode 


Lorsque INKEY$ est utilisé, le curseur est apparent pour CURSOR 1 et invisible pour 
CURSOR 0. 


EFFACEMENT D'UN DESSIN 


Pour effacer un dessin il suffit de tracer le même dessin en utilisant le stylo O. 


10 ss effacement d'un dessin 

20 MODE 1:PAPER O:PEN 1 

30 INK 0,26 ‘ blanc dans case 0 

40 INK 1,0 " noir dans case ! 

20 ‘----- droite noire sur fond blanc 

60 PLOT 100,100 ,1 

70 DRAW 200,200 ,1 " droite avec case i 
CÙ ‘--- 

90 FOR TP=i TO 2000:NEXT TP ‘ temporisation 
190 ‘--- effacement 

110 PLOT 100,100,0 

120 DRAW 200,200,0 ” droite avec case 0 


CHANGEMENT DE LA COULEUR D'UN DESSIN 


Pour changer la couleur d’un dessin il suffit de modifier par INK la couleur de la case 
(stylo) qui a servi à tracer le dessin. On peut également de la même façon faire dispa- 
raître momentanément un dessin sans l’effacer. 


19 ‘---- comment changer la couleur d'un dessin 
20 MODE 1:PAPER O:PEN 1 
30 INK 0,26 ‘ blanc dans case 0 


40 INK 1,0 " noir dans case 1! _— 
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90 ‘---- carre noir sur blanc 
60 PLOT 100,100,1 

70 DRAWR 100,0,1 

80 DRAWR 0,100,1 

90 DRAWR -100,0,1 

109 DRAWR 0,-100,1 


110 ‘---- 

120 FOR TP=1 TO 2000:NEXT TP ‘ temporisation 
130 ‘-------- le carre devient bleu 

140 INK 1,2 " bleu dans case 1 

150 FOR tp=1 TO 2000:NEXT tp 

160 ‘-------- le carre devient invisible 
170 INK 1,26 " blanc dans case 1 

189 FOR tp=1 TO 2000:NEXT tp 

]90r res sssses le revoila 

200 INK 1,6 " rouge dans case 1 
Pièges : 


Lorsque vous utilisez un programme la table de correspondance des couleurs est dans 
l'état où le programme précédent l'a laissée. Il est donc prudent d'’initialiser la table des 
couleurs en début de programme ou bien d'appuyer sur “CTRL /SHIFT/ESC/”. 


Le programme ci-dessous trace, en MODE 1, trois droites avec les stylos 1, 2 et 3. En 
MODE 2, la seconde droite n'apparaît pas puisque le stylo 2 est en réalité le stylo O. 


10: ===. PIEGE NO 1! 

20 MODE 1 

30 INK 0,26 ‘ blanc dans case 0 

32 INK 1,0 " noir dans case 1! 

34 INK 2,2 " bleu dans case 2 

40 ‘----- droite noire sur fond blanc 


50 PLOT 100,100, 1 
60 DRAW 200,200, 1 


70 ‘------ droite bleue sur fond blanc 
89 DRAW 300,200,2 

90 ‘------- droite rouge sur fond blanc 
100 DRAW 300,300,3 

140: "= 


n 


120 ‘ essayez ce programme en MODE 2 
150 ‘ la droite trace avec le stylo 2 n'apparait pas: 
140 ‘ En mode 2,le stylo 2 est le meme que Ô. 


Le programme ci-dessous utilise le stylo 2 pour écrire en MODE 1. En passant en MODE 
2, le texte n'apparaît plus puisque PEN 2 est équivalent à PEN O. Il suffit de frapper 
PEN 1 pour faire apparaître le texte. 


10 ‘--- PIEGE NO 2 
20 MODE 1 

30 INK 0,26:INK 1,0:INK 2,2 
40 PEN ! 

50 PRINT "J'ECRIS EN NOIR" 
60 PEN 2 


70 PRINT "J'ECRIS EN BLEU" =S- 
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B0 

90 PRINT "ATTENTION,TOUT VA DISFARAITRE" 

100 PRINT "POUR FAIRE APPARAITRE,FRAPPEZ :PEN 1" 
110 FOR TP=1 TO 4000:NEXT TP ‘ TEMPORISATION 

120 MODE 2 

130 ” 

140 ‘ EN MODE 2 ,'PEN 2° EST EQUIVALENT À ‘PEN 0° 


Ci-dessous, nous plaçons dans la case 1 la couleur de la case 0 pour rendre invisible 
une droite ; le texte disparaît en même temps. Pour le faire apparaître à nouveau, 
frapper INK 1,0. 


0" PIEGE NO 3 

20 MODE 1 

30 INK 0,26:INK 1,0 

4Q ‘-------- droite noire sur fond blanc 


90 PLOT 190,100,1 

60 DRAUR 100,0,1 

70. ess 

80 PRINT "Frapper:INK 1,0" 

90 FOR TP=1 TO 2000:NEXT TP ‘ temporisation 
100 ‘-------- droite invisible 

110 INK 1,26 

120 ‘ 

130 ‘ frapper en mode direct: INK 1,0 


Nous présentons ici quelques exemples de dessins. 


Le programme ci-dessous trace un drapeau français. Nous initialisons d'abord la table 
des couleurs puis nous traçons trois rectangles. 


10.” DRAPEAU FRANCAIS 

20 ‘ 

30 ‘ 

40 MODE 1! 

90 INK 0,21 " vert dans case 0 

60 INK 1,2 " bleu dans case 1! 

70 INK 2,26 " blanc dans case 2 

80 INK 6,3 ‘ rouge dans case 3 

90 ‘ 

109 XA=100:YA=100 " coordonnees depart 
110 H=150:L=100 ‘ hauteur/lonqgueur rectangle 
120 CE=1 " bleu 

130 GOSUB 220 

140 CE=2 " blanc 


150 XA=XA+L 
160 GOSUB 220 


170 CE=3 " rouge 

180 XA=XA+L 

190 GOSUB 220 

200 END 

AI Rare E ne eRnees Trace d'un rectangle 


— 
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220 FOR Y=YA TO YA+H 

230 PLOT XA,Y:DRAUR L,0,CE 
240 NEXT ŸY 

250 RETURN 


Le dessin de soleil ci-dessous est obtenu en traçant un cercle plein puis des rayons 
aléatoires. 


10 ‘=> SOLEIL 

29 MODE 1 

SO INK 0,26:INK 1,6:FAPER O:PEN 

40 R=40 ° rayon 

90 XC=200:YC=200 ‘ centre 
69 GOSUB 160 

70 ‘----- RAYONS 


80 FOR A=0 TO 2*PI STEP PI/20 
90 RI=R+RND(1)#R 

100 X=XC+R1*C0S (A) 

110 Y=YC+R1XSIN(A) 

120 PLOT XC,YC,1:DRAU X,Y,1 
130 NEXT A 

140 END 

190; messes CERCLE 
160 FOR A=0 TO 2*#P1+0.1 STEP 1/R 
170 X=XC+R#COS(A) 

180 Y=YC+R4#SIN(A) 

190 PLOT XC,YC:DRAW X,Y,1 

200 NEXT A 

210 RETURN 





Pour tracer des cercles rapidement nous calculons les valeurs des sinus et cosinus 
dans des tables C() et S(). 


10 ‘ TRACE DE CERCLE RAPIDE 

20: 

30 MODE 

40 INK 0,26:INK 1,6 

50 PRINT "JE CALCULE LES COSINUS ET SINUS" 
60 

70 NP=20 * NOMBRE DE POINTS 
80 DIM C(360),5(360) 

90 FOR J=0 TO 360 STEP 360/NP 

100 A=2#PI#J/360 

110 C(J)=COS(A):S(J)=SIN(A) 

120 NEXT J 

130 ‘--- 

140 CE=1 

150 FOR N=1 TO 10 

160 XC=100+RND(1)#300 

170 YC=100+RND(1)#200 

180 R=40+RND(1) #30 

190 GOSUB 230 

200 NEXT N 
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210 END 

220, esse CERCLE 

230 PLOT XC+R,YC,1 

240 FOR A=Q TO 360 STEP 360/NP 
2509 X=XC+R+#C(A) 

260 Y=YC+R*xS(A) 

270 DRAW X,Y,CE 

289 NEXT A 

290 RETURN 


JE SAC UBE LES COSIMUS ET SINUS 
Le, 


LOP= 





CARACTÈRES ACCENTUÉS 


Les caractères accentués ne sont pas prévus sur l'AMSTRAD. lis peuvent être ajoutés 
en redéfinissant des caractères avec l'instruction SYMBOL. 


Si les caractères accentués doivent être édités sur imprimante, il faut utiliser les codes 
ASCII adaptés à l'imprimante. Par exemple, pour une imprimante DPM1, le code de “à 
accent” est 64. On redéfinit donc le caractère de code ASCII 64. 


En revanche, les touches au clavier peuvent être choisies. 
Ci-dessous nous utilisons la touche “1” du clavier numérique pour frapper le “à accent”. 


10 ‘==============2=2==2====2=222===22=-= ACCENTS 
39 ‘ redefinition du caractere ‘A 

40 ‘ 1 clavier numerique 

90 ‘ 

99 SYMBOL AFTER 64 

60 SYMEOL 64,96,16,120,12,124,204,118 

70 KEY 129,CHR$(64) 


Ci-dessous nous utilisons “,CTRL/A” pour frapper “à accent”. 


19 ‘=======2==222====22222=2=222=2=22=2== ACCENTS 
50 ‘ redefinition du caractere ‘A’ 

40 ‘ CTRL À --} a accentue 

20 ‘ 

55 SYMBOL AFTER 64 

60 SYMBOL 64,96,16,120,12,124,204,118 

70 KEY DEF 69,1,97,65,64 
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Voici quelques exemples de caractères accentués : 


19 ‘==============2=-==-=- ACCENTS 
20 SYMBOL AFTER 64 
30 ‘---7 e accent grave 


40 SYMBOL 125,96,16,60,102,126,96,60 
50 KEY 135,CHR$(125) 

60 ‘---- Q accent aigu 

70 SYMBOL 123,6,8,60,102,126,96,60 
80 KEY 128,CHR$(123) 

90 ‘---- { a accent grave 

100 SYMROL 64,96,16,120,12,124,204,118 
110 KEY 129,CHR#(64) 

120 ‘--- 4 c cedille 

130 SYMECL 92,0,0,60,102,96,62,8,24 
140 KEY 132,CHR#(92) 


L'exemple ci-dessous inverse les caractères “A” et “Q” au clavier. 


JS Res clavier awerty 
10 KEY DEF 67,1,97,65 
20 KEY DEF 69,1,113,82 


Le programme ci-dessous permet de dessiner un caractère et donne les valeurs déci- 
males à spécifier dans l'instruction SYMBOL. 


10 ‘-------- GENERATEUR DE CARACTERES 8X8 

20 MODE 1:PAPER O:FEN 1:INK 0,26:INK 1,0 

30 DIM T(9,9) 

40 SYMBOL AFTER 134 

90 SYMBOL 134,255,129,129,129,129,129,129,255 carre 

60 FOR Y=1 TO B8:FOR X=1 TO 8 

70 LOCATE X,Y:PRINT CHR$(134) 

89 NEXT X:NEXT Y 

90 LOCATE 1,12:FRINT "Fleches pour deplacer" 

100 LOCATE 1,15:PRINT "A:allumer E:effacer Vivaleurs dec." 
110 LOCATE 1,1S5:PRINT "F:fin" 

120 X=5:Y=5 

130 CS=1 

140 ‘----------- CURSEUR CLIGNOTANT 

150 CF=INKEY$:IF LEN(C$)<>0 THEN 210 

160 LOCATE X,Y:IF T(X,Y)=1 THEN PRINT CHR#(143) ELSE PRINT CHR$#( 
231) 

170 FOR TP=1 TO 40:NEXT TP 

180 LOCATE X,Y:PRINT CHR$(134) 

190 G6GOTO 150 

200 ‘--- 

210 LOCATE X,V:IF T(X,Y)=1 THEN PRINT CHR$(143) ELSE PRINT CHR$( 
134) 

220 

230 C$=UPPER#(C#) 

240 C=ASC(C#) 

250 IF C=242 THEN IF X>1 THEN X=X-1 Re 
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260 IF C=243 THEN IF X<8 THEN X=X+1 

270 IF C=241 THEN IF Y<8 THEN Y=Y+1 

280 IF C=240 THEN IF Y}>1 THEN Y=Y-1 

290 IF C$="A" THEN LOCATE X,Y:PRINT CHR#(143):T(X,Y)=1 
300 IF C$="E" THEN LOCATE X,Y:PRINT CHR$(134):T(X,Y)=0 
310 IF C$="V" THEN 350 

320 IF C$="F" THEN END 

330 GOTO 150 


340 ‘=== ses s-sse calcul valeurs decimales 
350 FOR L=i TO 8 " B lignes 

360 ND=0 ” valeur decimale 

370 FOR X=1 TO B " 1 caractere 

380 A=0:IF T(X,L)=1 THEN A=1 

390 ND=ND+A#2*(8-X) * f=fleche haut 


400  NEXT X 
410  LOCATE 10,L:PRINT ND SPC(1) 

420  D(L)=ND 

430 NEXT L 

440 SYMBOL 135,D(1),D(2),D(3),D(4),D(5),D(6),D(7),D(8) 
450 LOCATE 15,2:PRINT CHR$(135) 

460 X=5:Y=5 

470 GOTO 150 





36 , 

16 ET 

Lt 

1 

124 

14 

LL£ 

[s] 
Fleches pour deplacer 
A:allumer É:efracer Urualeurs dec. 
F:fivr 

ANIMATION 


Pour animer des figures on utilise généralement des caractères redéfinis. En affichant 
un caractère dans différentes positions de l'écran, on obtient un effet d'animation. 


Pour simuler un vol de papillon nous le représentons alternativement dans deux posi- 
tions. Chaque position est représentée par 16x16 points, soit quatre caractères gra- 
phiques. CHRS$(8), CHRS$(10) et CHRS$(11) permettent de déplacer le curseur à gauche, 
en bas et vers le haut. Ainsi le papillon est affiché avec une seule instruction PRINT. 
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19 : VOL DE PAPILLON 

30 MODE 1:INK 0,26:INK 1,6 

40 C=145 * 1ER CARACTERE A MODIFIER 
50 SYMBOL AFTER C 

60 ‘---------- POSITION ! 


70 SYMBOL C,0,0,0,127,63,31,15,63 

80 SYMEOL C+1,0,0,0,248,240,226,196,248 

90 SYMBOL C+2,15,31,63,127,0,0,0,0 

100 SYMBOL C+3,196,226,240,24B,0,0,0,0 

110 P1$=CHR$ (C) +CHR$ (C+1)+CHR# (10) +CHR$ (B) +CHRS (B) +CHR$ (C+2) +CHR$ 
(C+3)+CHR$ (11) 

120 LOCATE 10,2:PRINT LS 

FAQ: me POSITION 2 

140 SYMBOL C+4,0,0,0,0,0,31,15,63 

150 SYMBOL C+5,0,0,0,0,0,226,196,248 

160 SYMBOL C+6,15,31,0,0,0,0,0,0 

170 SYMBOL C+7,196,226,0,0,0,0,0,0 

180 P2#$=CHR$(C+4)+CHR$ (C+5) +CHR$ (10) +CHRS (B) +CHR4 (B) +CHR$# (C+6) +CH 
R$(C+7)+CHR$ (11) 

190 

200 ‘sue CHAINE EFFACEMENT 

210 EF$=CHRS (32) +CHR$ (10) +CHR$(B)+CHR$(32)+CHR$#(11) 
220 ‘---- AVANCE PAPILLON 

230 Y=10 

240 FOR X=1 TO 24 

250 LOCATE X,Y:PRINT EF$:P1$ 

260 FOR TP=1 TO 100:NEXT TP 

270 LOCATE X,Y:PRINT EF$:P2# 

280 FOR TP=1 TO 8O:NEXT TP 

290 NEXT X 

300 LOCATE X,Y:PRINT EFS$:EF# 

310 INK 1,INT(RND(1)#16) 

320 GOTO 240 


—K —= 


Positioni Position2 













= 


PR 





Voici deux exemples de dessins définis par quatre caractères graphiques (16x16 points). 


10 :=--- soleil 
30 MODE 1:INK O,1:INK 1,24 
40 C=145 "1ER CARACTERE À MODIFIER 


50 SYMBOL AFTER C 

60 SYMBOL C,1,65,33,17,11,7,239,3 

70 SYMBOL C+1,0,8,16,32,192,192,224,254 

80 SYMBOL C+2,15,7,27,34,66,2,2,0 

90 SYMBOL C+3,224,192,160,16,8,0,0,0 

100 L$=CHRS (C) +CHRS# (C+1) +CHR$ (10) +CHR$ (B) +CHRS (B) +CHRS(C+7) +CHRS ( 
C+3)+CHR# (11) 

110 LOCATE 10,2:PRINT L$ 
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20 

30 MODE 1:INK O,1:INK 1,24 

40 C=145 ‘ 1ER CARACTERE À MODIFIER 
50 SYMBOL AFTER C 

60 SYMBOL C,0 0, 0 0221618 

70 SYMBOL C+1,0,0,0,0,128,128,192,224 

80 SYMBOL HUE 62,0,255,127,63,0 

90 SYMBOL C+3,240,248,252,0,295,254,252,0 

100 L$=CHRS CC) +CHRS (C+1) +CHRS (10) +CHRS (B)+CHR$ (B) +CHR$ (C+2) +CHRS( 
C+3)+CHR$ (11) 

110 LOCATE 10,2:PRINT L$ 


Pour réaliser une animation sans caractères graphiques nous dessinons une figure 
dans différentes positions et n'en “démasquons” qu'une seule à la fois. 


19 ‘’ ROTATION ROUE 
20 

30 ‘ On represente successivement une roue 

40 ‘ dans 3 positions pour donner une 

50 ‘ impression d'animation. 

60 ‘ Attention! si vous interrompez le programme,frappez en 
79 ‘ mode direct: INK 1,0 







80 
90 CF=26 ‘ fond 
100 CE=6 " ecriture. 


110 MODE 1:PAPER O:PEN 1 
120 INK O,CF:INK 1,CF 
130 INK 2,CF:INK 3,CF = 


140 XA=200:YA=200 ‘ centre Dos 
150 R=150 ‘ rayon EF 
160 GOTO 180 ee 
170 "==-2se- dessin positions 1,2,3 
180 NR=3G " Nombre de rayons 
190 V=200 " vitesse 


200 DC=0:6=2:GOSUB 330 
210 DC=(2#P1)/(3XxNR):S=3:GOSUR 330 
220 DC= DC#2:S=1:GOSUB 330 


230 ‘------- rotation roue 

240 INK 1,CF:INK 3,CE " position ! 
250 FOR TP=1 TO V:NEXT TP 

260 INK 2,CE:INK 3,CF ‘ position 2 
270 FOR TP=1 TO V:NEXT TP 

280 INK 2,CF:INK 1,CE ‘ position 3 


290 FOR TP=1 TO V:NEXT TP 

300 V=V-2:IF V=0 THEN END 

310 GOTO 240 

920 sie renss— RAYONS 

330 FOR P=1 TO NR 

340 A=2*PI#P/NR+DC 

350 DX=R#COS(A):DY=R#SIN(A) 

360 PLOT XA+DX+0.3,YA+DY#0.3,S:DRAW XA+DX,YA+DY,5S 
370 NEXT P 

380 RETURN 
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Pour simuler l'agrandissement d’une figure (carré sur l'exemple) nous la dessinons en 
mode “masque” puis nous la démasquons. Ainsi, la figure apparaît instantanément. 
Nous procédons de la même façon pour l'effacement. 


10: “=sssssssiess AGRANDISSEMENT D'UNE FIGURE 


30 CF=0 " fond 
40 CE=26 " ecriture 
90 INK O,CF 


70 XC=200:YC=200 " ORIGINE 

80 R=10 

90: "=== 

100 STYLO=1:INK 1,CF:GOSUR 260 © 1ER FIGURE 

110 ” 

120 INK 1,CE:INK 2,CF " DEMASQ 1ERE/MASQUAGE 2EME 
130 ‘ 

140 STYLO=O0:R=R-4: XC=XC+2:YC=YC+2: GOSUR 260 ‘EFFACEMENT 2ME 
150 ” 

160 STYLO=2:INK 2,CF:R=R+8:XC=XC-4:YC=YC-4: GOSUR 260 ‘ 2EME FIG 
URE 


170 ” 
180 INK Î,CF:INK 2,CE © MASQUAGE 1ER,DEMASQUAGE 2EME 
190 
200 STYLO=O0O:R=R-4: XC=XC+2:YC=YC+2: GOSUR 260 ‘ EFFACEMENT ER 
210 ‘ 


220 R=R+8:XC=XC-4:YC=YC-4 

230 IF R>150 THEN INK 1,CE:END 
240 GOTO 100 

250 ‘----------- FIGURE 

260 PLOT XC,YC, STYLO 

270 DRAWR R,0,STYLO 

280 DRAWR O,R, STYLO 

290 DRAWR -R,0,STYLO 

300 DRAWR 0,-R,STYLO 

310 RETURN 


Un éclair est dessiné en mode masque. Nous le démasquons momentanément et en 
même temps nous changeons la couleur de fond. 


10 ‘ ECLAIR 
2Q 

30 MODE ! 

40 PAPER O0:PEN 1:RORDER 1! 

50 INK O,12INK 1,26:INK 2,0:INK 3,0 
60 GOSUR 250 ‘ OPTIONNEL 

70 ‘--- DESSIN ECLAIR 

80 PLOT 200,300,2 

90 DRAW 234,340 ,2 

100 DRAW 232,314,2 

110 DRAW 280,362,2 

120 ‘-- 

130 INK 2,6 ‘ ECLAIR APPARENT 

140 FOR TP=1 TO 100:NEXT TP _— 
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150 INK O0,2:BORDER 2 


160 

170 FOR TF=1 TO 100:NEXT TP 
180 ‘-- 

190 INK 2,1 © ECLAIR MASQUE 
200 INK 0,1:BDRDER 1! 

210 ‘- 


220 FOR TP=i TO 3O00:NEXT TP 

230 GOTO 13590 

240 ‘-------------- IMMEUBLE 

250 C=125 " caractere a modifier 

260 C$=CHR#(C) 

270 SYMEOL AFTER C 

289 SYMBOL C,255,129,129,129,129,129,129,255 


290 

300 XB=1:YR=23 
310 H=15:L=7 
320 PEN 3 


330 FOR Y=YBR TO YB-H STEP-1 

340 FOR X=XB TO XB+L 

350 LOCATE X,Y:PRINT C$ 

360 NEXT X 

370 NEXT Y 

380 PEN ! 

390 RETURN 

400 ‘-------------- sur ecran vert: 
410 ‘ 50 ink O,1:ink 1,26:ink 3,20 
415 ‘ 1350 ink 2,24 

420 ‘ 150 ink 0,12:border 12 


DESSINATEUR 





Le dessinateur présenté permet de choisir un caractère parmi ceux affichés en haut de 
l'écran à l’aide d'un curseur. Lorsque le caractère est choisi vous réalisez un dessin en 
déplaçant le curseur avec les quatre flèches. “L” permet de se déplacer sans écriture, 
“E” d'effacer une partie des dessins. Pour dessiner à nouveau, utiliser “B”. 

OO 4 Et -. 


Lrht- + — 4 - 4 





#- 

Fleches pour deplacer 
Ripren 

B:bhbaisser L:lever E:effacer 
Gauleurs:1,2,3 
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20 
30 
40 
90 
69 


89 

90 

100 
110 
120 
130 
140 
150 
160 
179 
180 
190 
200 
210 
220 
230 
240 
290 
260 
2790 
280 
290 
300 
319 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
320 
9530 
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ane DESSIN (CPC464 ET CPCé64) 


CE=1:CF=0 ‘ ecriture/fond 

MODE 1 

INK 0,26:INK 1,0:INK 2,2:PAPER O:PEN 1 

CC=139 ‘ debut caracteres graphiques 


SYMBOL AFTER CC 
SYMBOL CC,255,129,129,129,129,129,129,255 
SYMBOL CC+1,8,8,28,127,28,34,65,0 

SYMBOL CC+2,255,129,129,255,0,0,0,0 


SYMBOL CC+3,255,129,129,255,129,129,129,259 
X=10:Y=10 " ccordonnees curseur 
XM=1:YM=Ii " affichage caracteres de base 


LOCATE XM,YM:FOR I=CC TO CC+18:PRINT CHR#(I) SPC(1):NEXT I 
CP$=CHR$(CC):L=1:LOCATE X,Y:PRINT CP$ 


LOCATE 1,20:PRINT "Fleches pour deplacer" 

LOCATE 1,21:PRINT "P:prend" 

LOCATE 1,22:PRINT "B:baisser L:lever E:effacer F:fin" 
LOCATE 1,23:PRINT "Couleurs:1,2,3" 

rer eesee CURSEUR 

LOCATE X,Y 

XG=(X-1)#16+8:Y6=399-(Y-1)#16-8 

T=TEST(XG,YG): TB=TEST(X6+2,Y6) 

C$=INKEY$:IF LEN(C$)<>0 THEN 290 

PLOT XG,YG,CE:PLOT X6+2,Y6G,CE:PLOT X6,YG,CF:PLOT X6+2,YG,CF 
GOTO 250 

PLOT XG,YG,T:PLOT XG+2,YG,TR 

C$=UPPERS$(C$#) 

C=ASC(C#$) 

IF C=242 THEN IF X>1 THEN X=X-1 

IF C=243 THEN IF X<38 THEN X=X+1 

IF C=240 THEN IF Y>1 THEN Y=Y-1 

IF C=241 THEN IF Y<24 THEN Y=Y+1 

IF C$>="1" AND C$<="3" THEN CE=VAL(C$):PEN CE 

IF C$="P" THEN GOSUB 470 

IF C$="B" THEN L=1 

IF C$="L" THEN L=0 

IF C$="E" THEN L=2 

IF C#$="F" THEN END 

IF L=1 THEN IF Y>YM+1 THEN LOCATE X,Y:PRINT CP$ 

IF L=2 THEN IF Y>YM+1 THEN LOCATE X,Y:PRINT CHR$(32) 
LOCATE 1,16:PRINT c$ 


SÉsée-- ON PREND 
IF Y=YM THEN CP$=CHRS$ (CC+INT((X-XM)/2)) 
LOCATE 1,1B8:PRINT CP$:PRINT CHR$(7); 
RETURN 
Pour CPCé664: 
Ajouter : 115 CURSOR 1 
Supprimer: 230 240 260 
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SOURIS 


Ce programme permet de déplacer des caractères affichés à l'écran à l'aide d'un curseur 
que vous positionnez avec les quatre flèches. 


Sur CPC 664, grâce à la fonction COPYCHRS(#0) qui donne un caractère affiché à 
l'écran, et à la fonction CURSOR, le programme est assez simple. 


En revanche, pour le CPC 464, il faut représenter un curseur et gérer directement la 
mémoire écran pour simuler COPYCHRS$(#0). 


10 ‘----- SOURIS (CPC664) 

20 CE=1:CF=0 ‘ ecriture/fond 

30 MODE 2 

40 INK 0,26:INK 1,0:PAPER O:PEN 1 

00 X=10:Y=10 ‘ coordonnees curseur 
60 CURSOR 1i 


70 LOCATE 1,5:PRINT "DEPLACEZ LE CURSEUR AVEC LES FLECHES" 
80 LOCATE 1,6:PRINT "'PRENEZ' UNE LETTRE EN APPUYANT SUR ‘P'"* 
90 LOCATE 1,7:PRINT "DEPLACEZ LE CURSEUR PUIS ‘POSEZ' LA LETTRE 
EN APPUYANT SUR ‘D'" 

100 LOCATE 1,24:PRINT "F: fin" 

LI0 ee ETS sssese CURSEUR 

120 LOCATE X,Y 

130 C$=INKEY#:IF LEN(C#)<3>0 THEN 160 

140 GOTO 1350 

150 ‘-- 

160 C=ASC(C$#) 

170 C$=UPPERS$(C$) 

180 IF C=242 THEN IF X>1 THEN X=X-1 

190 IF C=243 THEN IF X<79 THEN X=X+1 

200 IF C=240 THEN IF Y>1 THEN Y=Y-1 

210 IF C=241 THEN IF Y<25 THEN Y=Y+1 

220 IF C$="P" THEN GOSUR 270 

230 IF C$="D" THEN GOSUB 320 

240 IF C$="F" THEN END 

250 G6OTO 120 

Zh0: /F=-ss==s ON PREND 

270 CP$=COPYCHRS (#0) 

280 PRINT CHR$#(32) 

290 LOCATE 1,20:PRINT CP# 

300 RETURN 

SIQ. “rss ON POSE 

320 IF COPYCHR$(#0)<>CHR$ (32) THEN RETURN 

330 PRINT CP$ 

340 RETURN 


DEPLACEZ LE EUR AVEC LES FLECHES 
“PRENEZ' UNE LETTRE EN APPUYANT SUR ‘P' 
DEPLACEZ LE CURSEUR PUIS POSEZ‘ LA LETTRE EN APPUVYANT SUR ‘D’ 


C 
U 
R 
5 
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La version ci-dessous fonctionne sur CPC 464, 664 et 6128. 


10 ‘----- SOURIS (CP464+CPC664) 

20 CE=1:CF=0 " ecriture/fond 
30 MODE 2 

40 INK 0,26:INK 1,0:INK 2,2:INK 3,6:PAPER O:PEN 1 

20 X=10:Y=10 ‘ coordonnees curseur 

60 


70 LOCATE 1,5:PRINT "DEPLACEZ LE CURSEUR AVEC LES FLECHES" 

89 LOCATE 1,6:PRINT "‘PRENEZ'‘ UNE LETTRE EN APPUYANT SUR ‘F'" 
90 LOCATE 1,7:PRINT "DEPLACEZ LE CURSEUR PUIS ‘POSEZ‘ LA LETTRE 
EN APPUYANT SUR ‘D'" 

100 LOCATE 1,24:PRINT "F:fin" 


110: === curseur clignotant 

120 LOCATE X,Y 

130 G6OSUR 470 " Sauvegarde caractere sous le curseur 
140 


150 LOCATE X,Y 

160 C$=INKEY#:1IF LEN(C$)<50 THEN 210 

170 PRINT CHR#(143) 

180 GOSUR 5350 

190 GOTO 150 

200 ‘ 

210 GOSUB 530 " Restitution caractere sous curseur 
220 C$=UPPER$(C$#) 

230 C=ASC(C#) 

240 IF C=242 THEN IF X>1 THEN X=X-1 

250 IF C=243 THEN IF X<78 THEN X=X+1 

260 IF C=240 THEN IF Y>i THEN Y=Y-1i 

270 IF C=241 THEN IF Y<25 THEN Y=Y+1 

280 IF C$="P" THEN GOSUR 330 

290 IF C$="D" THEN GOSUB 410 

300 IF C$="F" THEN END 

310 GOTO 120 

320 ‘-------- ON FREND 

330 N=1 

340 FOR A=49152+X-1+(Y-1)+80 TO 65534 STEP 2048 
350 XP(IN)=PEEK(A):N=N+1 

360 NEXT A 

370 PRINT CHR$(32) 

380 PRINT CHR#(7); 

390 RETURN 

400 ‘---------- ON POSE 

410 N=i 

420 FOR A=49152+X-1+(Y-1)x80 TO 65534 STEP 2048 
430 POKE A,XP(N):N=N+1 

440 NEXT A 

450 RETURN 

HOQ sers essesenee sauvegarde caractere sous curseur 
470 N=1 

480 FOR A=49152+X-1+(Y-1)x80 TO 65534 STEP 2048 
490 X(N)=PEEK(A):N=N+1 

900 NEXT A 

910 RETURN 

DA: RSR Rene restitution caractere = 
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330 N=1 

540 FOR A=49152+X-1+(Y-1)+80 TO 65334 STEP 2048 
530 POKE A,X(N):N=N+1I 

d60 NEXT À 

370 RETURN 


ST 


OCKAGE D'UN DESSIN DANS UN FICHIER 


Nous réalisons un dessin à l’aide de segments de droites. Les coordonnées des points 
sont stockées dans un fichier séquentiel sur cassette ou disquette. 


10 
20 
30 
4û 
J0 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
270 


ins STOCKAGE D'UN DESSIN DANS UN FICHIER 


CE=1:CF=0 ‘ ecriture/fond 
MODE 1 
INK O,O0:INK 1,26:INK 2,2:INK 3,6:PAPER O:PEN 1 


LOCATE 1,20:PRINT "PREMIER POINT:fleches puis ‘P'" 
LOCATE 1,21:PRINT "AUTRES FOINTS: fleches puis ‘D'" 
LOCATE 1,22:PRINT "1,2,3:couleurs" 
LOCATE 1,23:PRINT "F:FIN" 

X=200:Y=200 

INPUT "NOM FICHIER ";NF$ 

OPENOUT NF#f 

ee de pi CURSEUR CLIGNOTANT mnt 


T=TEST(X,Y) “, . 
C$=INKEYS:IF LEN(C#)<>0 THEN 200 | 
PLOT X,Y,CE | 


PLOT X,Y,CF 4 
60TO 150 


PLOT X,Y,T 
C=ASC(C#) 
CH=UPPERS$(C$) 

IF C=242 THEN X=X-2 
IF C=243 THEN X=X+2 
IF C=240 THEN Y=Y+2 
IF C=241 THEN Y=Y-2 
LOCATE 1,17:PRINT C$ 


280 IF C$="P" THEN PLOT X,Y,CE:GOSUB 340:XA=X:YA=Y 


290 


IF C$f="D" THEN PLOT XA,YA,CE:GOSUR S40:DRAW X,Y,CE:YA=Y:XA=X 


300 IF C#$>="0" AND C$<="3" THEN CE=VAL(C$):GOSUB 340 


310 


IF C$="F" THEN CLOSEOUT:END 


320 GOTO 130 


330 


ressens STOCKAGE FICHIER 


340 PRINT #9,C$ 


350 


PRINT #9,X 


360 PRINT #9,Y 


370 


RETURN 
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10, rssssesee LECTURE FICHIER DESSIN 
20 MODE 1 

30 CF=0:CEzI ‘ fond/ecriture 
40 INK O,0:INK 1,26:INK 2,2:INK 3,6 
950 


60 INPUT "NOM FICHIER ";NF$ 
70 OPENIN NF$ 

80 ‘ 

90 ‘ 

100 IF EOF THEN CLOSEIN:END 

110 INPUT #9,C$,X,Y 

120 IF C#="P" THEN PLOT X,Y,CE 

130 IF C$="D" THEN DRAW X,Y,CE 

140 IF C$>="O" AND C$é="3" THEN CE=VAL(C#) 
150 GOTO 100 


DESSINATEUR ET COMPOSITION DE DESSINS 


Nous reprenons le dessinateur présenté dans le tome 1, page 127, mais cette fois nous 
enregistrons toutes les commandes et les coordonnées des points dans des tables 
CM$(,X(),Y() et CE(). 


CMS()  X() YO CE() 





Cette méthode présente plusieurs avantages : 


0 Elle permet d'exécuter à nouveau un dessin en supprimant une ou plusieurs 
commandes. 

0 La sauvegarde du dessin est moins encombrante et plus rapide qu'une sauvegarde 
binaire. 

Oo Le dessin réalisé peut être agrandi. 

o Nous pouvons ajouter plusieurs dessins. 


Le dessin se fait dans une fenêtre en haut à gauche de l'écran. 


Par exemple, pour tracer une droite, positionnez le curseur avec les flèches puis frappez 
“P”. Ensuite déplacez le curseur et frappez “D”. 


Pour tracer un rectangle, frappez “P” puis déplacez le curseur vers le sommet opposé 
et frappez “R”. 


Lorsque le dessin est réalisé, vous le sauvegardez en frappant “#”. 


Vous pouvez ensuite l'appeler avec “$”. Il est affiché dans la fenêtre. Pour l'afficher 
dans un autre endroit de l'écran, utiliser “%”. Auparavant, positionnez le curseur à 
l'endroit où doit être affiché le dessin. 


“+” et “—” permettent d'augmenter et de diminuer la vitesse de déplacement du curseur. 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
0:6 
380 
390 
=: 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
520 
230 


COMPOSITION DE DESSINS 


GOSUB 1400 


Affichage menu 


DIM X(200),Y(200) ,CM$(200),CE(200) 
DIM XX(200),YY(200) 


CE=1:CF=0 


couleur ecriture et fond 


INK 0,26:INK 1,0:PAPER CF:PEN CE ‘ fond blanc/encre noire 


INK 2,2:INK 3,6 
RPT=3 

SPEED KEY 20,3 
MODE 1 


repetition plus rapide 


PLOT 1,399,1:DRAWR 200,0:DRAWR 0,-150:DRAWR -200,0 
WINDOW #1,27,40,1,3 


WINDOW #2,1,12, 


1,9 


PRINT #2,"Des de base" 


XA=100:YA=350 


point precedent 


XB=XA:YB=YA: X=XA+20:Y=YA 
LOCATE 1,24:PRINT "P:point D:droite Rirect C:cercle Y:tgle" 
LOCATE 1,25:PRINT "coul:0,1,2,3 F:peindre #:sauv $:lect" 


T=TEST(X,Y) 


--- curseur clignotant 


C$=INKEYS:IF LEN(C$)€>0 THEN 270 
PLOT X,Y,CE:PLOT X,Y,CF 


GOTO 230 


PLOT X,Y,T 
C=ASC(C#) 


IF C=242 THEN IF X>2 THEN X=X-2:G0OT0 210 
IF C=243 THEN IF X<600 THEN X=X+2:G0T0 210 
IF C=240 THEN IF Y<397 THEN Y=Y+2:GO0T0 210 
IF C=241 THEN IF Y>2 THEN Y=Y-2:G60T0 210 
C$=UPPERS$(C$):LOCATE 1,21:PRINT C# 


IF C$="+" THEN 
IF C$="-" THEN 
IF C$="!" THEN 


IF RPT>1 THEN RPT=RPT-1:SPEED KEY 20,RPT 
IF RPT<6 THEN RPT=RPT+1:SPEED KEY 20,RPT 
TT=ABS(TT-1):GOSUR 770:GO0T0 219 


IF TT=1 THEN TAG: PLOT X,Y,1:PRINT C#$s:X=X+16:TAGOFF:GOSUR 77 


DTO 216 
IF C$="P" THEN 
IF C$f="D" THEN 

GOSUR 770 
IF C$="C" THEN 
IF C$="R" THEN 
IF C$="Y" THEN 
IF C$="6" THEN 
IF C$>="0" AND 
IF C$="F" THEN 
IF C$="S" THEN 
IF C$="L" THEN 
IF C$="#" THEN 
IF C+="#$" THEN 
IF Cf="%" THEN 
IF Cf="£R" THEN 
IF C$="A" THEN 
GOTO 210 


PLOT X,Y,CE:XB=XA:YB=YA:XA=X:YA=Y:GOSUR 770 
PLOT XA,YA,CE:DRAW X,Y,CE:XE=KA:YB=YA:YA=Y: XA 


GOSUR 600:GOSUR 770 

GOSUB 550:XA=X:YA=Y: GOSUE 770 

GOSUR 680:XB=XA:YB=YA: XA=X:YA=Y: GOSUR 770 
AC=CE:CE=0:GOSUB 550:CE=AC:GOSUR 779 ‘ gomme 
C$<="9" THEN CE=VAL(C#) 

MOVE X,Y,CE:FILL CE:GOSUB 770 ‘ CPC664 

SAVE "DES",R,8&C000,8&4000 

LOAD "DES" 

GOSUR 800 " sauvegarde dessin de base 
GOSUR 920 ‘ lecture dessin de base 

GOSUR 1940 ‘ affichage dessin base avec ech 
IF P>1 THEN P=P-1:CLS #2:GOSUR 1220 

END 


990 
360 
370 
580 
390 
600 
610 
620 
b30 
640 
b50 
660 


b70 


680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
B50 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1980 
1090 
1100 
1110 
1120 


Res roe- eee rectangle plein 

FOR Yi=YA TO Y STEP SGN(Y-YA) 
PLOT XA,YI,CE:DRAH X,Y1,CE 

NEXT Vi 
RETURN 

FRRRSESSSRS SES SSReSSS es Cercle plein 
R=SGR((XA-X)*2+(YA-Y)S2):R2=R°2 ‘ f=fleche haut 
FOR DX=-R TO R 

DY=SGR(R2-(DX"2)) " fsfleche haut 
PLOT XA+DX,YA+DY,CE:DRAW XA+DX,YA-DY,CE 
NEXT DX 

RETURN 

Re SO RE RS ST EE triangle plein 
valider 2 points avec ‘P' puis un troisieme avec 
D=SGR((YB-YA)*2+(XB-XA)"2) 

IF D=0 THEN RETURN 
CX=(XA-XB)/D:CY=(YA-YB)/D 

FOR DD=0 TO D STEP 0.5 
X3=XB+DDxCX:Y3=YR+DDxCY 

PLOT X,Y,CE:DRAW X3,Y3,CE 
NEXT DD 

RETURN 

RENE RSS ee MAJ TABLES 
P=P+i:X(P)=X:Y(P)=Y:CM$ (P)=C#$:CE(P)=CE 
XX(P)=X: YY(P)=Y:RETURN 
Sanrio soie poterie SAUVEGARDE COMMANDES 
INPUT #1,"Nom";NF#$ 

OPENOUT NF$ 
PRINT #9,P 

FOR J=1 TO P 

PRINT #9,XX(J) 

PRINT #9,YY(J) 

PRINT #9,CM$#(1J) 

PRINT #9,CE(J) 
NEXT J 

CLOSEOUT 
RETURN 

Herr er PSS e-ssses— AFFICHAGE DESSIN BASE 
INPUT #1,"Nom ";NF# 
CLS #2 

GOSUB 1140 
SX=X:SY=Y 

X=1:Y=399:ECH=i 
FOR J=1 TO P 
X(J)=XX(J)#ECH+X:V(J)=(YY(J)-400) *ECH+Y 
NEXT J 

GOSUR 1220 

X=SX:Y=5SY 

RETURN 

mener DESSIN AVEC ECHELLE 
INPUT #1,"Echelle";ECH 

IF ECH<=0 THEN ECH=1 

FOR J=i TO P 

X(J)=XX(J)xECH+X:Y(J)=(YY(J)-400)*ECH+Y 

NEXT J 

SX=X: SY=Y 

GOSUB 1220 


X=SX:Y=GY:FOR J=1 TO P:X(J)=XX(J):Y(J)=YY(J)INEXT J 


RETURN 
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OPENIN 


FOR J= 
INPUT 
NEXT J 


RETURN 
FOR J= 
X=X(J 
IF CM 
1250 
OTDU 1540 
1260 IF CM 
1270 IF CM 
THE 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


IF CM 


IF CM 
NEXT J 
RETURN 


XB=XA: 


PRINT 


PRINT 
1430 PRINT 
t,C=cercle" 
1440 PRINT 
1450 PRINT 
1460 PRINT 
D’. 

1470 PRINT 


1480 PRINT 

ent sur sur 
1490 PRINT 

1500 PRINT 

1510 PRINT 

1520 PRINT 

sent" 

1530 PRINT: 
1540 PRINT 

1550 PRINT 

1560 PRINT 


1570 PRINT 
r ‘S' 
1580 PRINT: 

1590 PRINT: 
1600 RETURN 
1610 
1620 
1630 


Pour 


IF TT= 


IF CM$(J)="Cc" 


IF CM$(J)="Y" 
IF CM$(J)="F" 
IF CM$(J)="!" 


RETURN 


MODE 2: 


et lu par 


NF$ 


LECTURE DESSIN BASE 


INPUT #9,P 


1 TO P 


#9,XX (JD ,YY(J) ,CM$(J) ,CE(J) 


CLOSEIN 


1 TOP 

):Y=Y(J):CE=CE(J) 

$(J)="!" THEN TT=ABS(TT-1):GO0T0 1340 

1 THEN TAG:PLOT X,Y,CE:PRINT CM$(J);:X=X+16: TAGOFF:6G 


REDESSINE 


$(J)="P" THEN PLOT X,Y,CE:XB=XA:YB=YA: XA=X:YAeY 
$(J)="D" 

N PLOT XA,YA,CE:DRAW X,Y,CE:XB=XA: YB=YA: XA=X: YA=Y 
THEN G6OSUB 600 

THEN GOSUB 550:XB=XA:YB=YA:XA=X: YA=Y 
THEN GOSUB 680:XB=XA:YB=YA:XA=X:YA=Y 
THEN MOVE X,Y,CE:FILL CE CPCé64 

THEN TT=ABS(TT-1) 

THEN AC=CE:CE=0:GOSUB 550:CE=AC 


$(J)="R" 


$(J)="6" 


YB=YA:YA=Y:XA=X 
RER ne Dre MENU (OPTIONNEL) 

PAPER O:PEN 1:INK 0,26:INK 1,0 

"Permet de dessiner des figures de base dans une fene 


“en haut a gauche" 
"Fleches,P=premier point ,D=droite avec point preceden 


"R=rectangle,Y=triangle,F=peindre(CPC664)" 


"EX: -DROITE: Fleches puis ‘P'.Ensuite fleches puis 


CERCLE: ‘P' pour centre.Ensuite fleches et ‘C' 
"Couleurs: 0,1,2,3 (avec 0,le curseur apparait seulem 
face coloriee)" 

"6 gomme un rectangle" 

“+ et - changent la vitesse du curseur" 

"& annule la derniere commande" 

"TU fait passer du a#ode graphique au texte et inverse 
PRINT "SAUVEGARDE DESSIN DE BASE: 4 
"LECTURE DESSIN DE BASE: ‘$' 

"4" permet de les afficher avec une echelle" 


"dans differents endroits de l'ecran grace au curseur 


4" 


"L'ensemble du dessin compose peut etre sauvegarde pa 
ii Leo " 

PRINT "A: arret progranme" 

INPUT “APPUYER SUR ENTER";X$ 


disque ajouter: 25 ON ERROR GOTO 1800 


1800 IF DERR=146 THEN RESUME 920 
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APPRENTISSAGE DE MOTS 


Nous affichons une silhouette d'objet et nous demandons le nom de cet objet. Si une 
seule lettre de la réponse est oubliée (ou fausse), nous affichons la bonne orthographe 
du mot. 


Les dessins sont tracés par segments de droite. Une discontinuité dans le tracé est 
spécifiée par “0,0”. “999,999” spécifie la fin d'un dessin. 


Naturellement, les dessins auraient pu être stockés dans un fichier à l’aide d'un pro- 
gramme dessinateur évitant ainsi la recopie des coordonnées en DATA. 





19 ‘ APMOT APPRENTISSAGE DE MOTS 


20 

30 MODE 1:INK 0,0:INK 1,26 

40 NMOT=5 " nombre de mots 
50 ‘ 

bO ‘-------- BOITE 


70 DATA 16,354, 70,354, 70,310 
80 DATA 16,310, 16,354, 36,374 
90 DATA 86,374, 70,354, 70,310 
100 DATA 88,332, 68,374, 74,394 
110 DATA 26,294, 36,274, 999,999 
120 DATA BOITE 


130 

140 MAISON 

150 DATA 12,364, 90,364, 76,384 
160 DATA 28,384, 12,364, 20,364 


170 DATA 20,318, 78,318, 78,364 
180 DATA 0,0 

190 DATA 66,342, 48,342, 48,318 
200 DATA 66,318, bb,342 

210 DATA 0,0 

220 DATA 28,352, 40,392, 40,338 
230 DATA 28,338, 28,352, 28,246 
240 DATA 40,346, 40,338, 236,338 
250 DATA 36,352 

260 DATA 999,999 

270 DATA MAISON 

280 BOUGIE 

290 DATA 42,358, 42,286, 66,286 
300 DATA 66,358, 42,358, 52,358 
310 DATA 48,366, 46,374, 46,3B4 
320 DATA 52,390, 56,280, 56,374 
330 DATA 54,366, 52,360 

340 DATA 999,999 

350 DATA BOUGIE 
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360 BATEAU 
370 DATA 38,382, 16,342, 38,342 


400 DATA 44,382, 44,342, 70,342 


450 DATA 999,999 
460 DATA BATEAU 


480 DATA 12,366, 38,366, 48,392 

490 DATA 64,566, 92,366, 74,344 

500 DATA 88,320, 52,330, 28,310 

510 DATA 32,342, 12,364 

520 DATA 999,999 

530 DATA ETOILE 

540 ‘========= LECTURE DESSIN AU HASARD 
550 P=INT(RND(1)#NMOT):IF P=AP THEN 550 
560 AP=P:RESTORE 

570 IF P=0 THEN 630 

580 FOR J=1 TO P 

590 READ X,Y:IF X=999 THEN 600 ELSE 590 
600 READ MOT$ 

610 NEXT J 

620 ‘-------- AFFICHAGE 

630 MODE i 

640 READ XA,YA 

650 PLOT XA,YA, 1 


670 READ X,Y:IF X=999 THEN 730 

680 IF X=0 THEN READ X,Y:PLOT X,Y,1:GOT0 700 
690 DRAW X,Y,1 

700 XA=X:YA=Y 

710 GOTO 670 

720 ‘----- REPONSE 

730 READ MOT$ 

740 LOCATE 1,20:INPUT "Reponse (ou FIN) ";R# 
750 R$=UPPERS$(R#):IF R$="FIN" THEN END 

760 IF R$=UPPER$(MOT$) THEN PRINT "OK'":G0OTO 830 


780 GOSUR 860 


800 IF R=LEN(MOT$#)-1 
THEN PRINT "LA BONNE ORTHOGRAPHE EST:";MOT$:GOTO 830 
810 PRINT "LA BONNE REPONSE EST:";MOTS$ 


830 FOR TP=1 TO 1000:NEXT TP 

840 GOTDO 550 

850 ‘----------- VOISINAGE DE LA REPONSE 

860 R=0 " nombre de bonnes lettres 

870 FOR K=1i TO LEN(R$) ee 
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880 C$=MIDF(RS,K,1) 
890 FOR J=1 TO LEN(MOT#) 

900 IF C$=MID#(MOT#,J,1) THEN R=R+1:G0T0 920 
910 NEXT J 

920 NEXT k 

930 RETURN 


COMPOSITION DE PAYSAGE AVEC ANIMATION 


A l'aide de trois figures de base (arbre, maison, locomotive), vous composez un pay- 
sage. Le choix des figures se fait à l'aide d'un curseur que vous déplacez avec les 
quatre flèches. 


En frappant “P”, vous “prenez” une des trois figures de base (BEEP signale que la 
figure a été choisie). “D” permet de “déposer” la figure choisie. La couleur se choisit 
en frappant 1,2,8. 


Pour animer une figure, placer le curseur devant elle puis frapper “+” ou “—” (une ou 
plusieurs fois). Une figure animée peut également être stoppée. 


S$() contient les dessins. 
X( et Y() contiennent les coordonnées des dessins. 
VO contient les vitesses. 


Exemple : 


Placez le curseur sur le centre de la locomotive et appuyez sur “P” puis déplacez le 
curseur et appuyez sur “D”. Pour animer la figure, placez le curseur devant la locomo- 
tive et appuyez sur “+” ou “—”. 


Pour “accrocher” une figure derrière une autre, placez le curseur derrière la première 
figure et appuyez sur “A”. 


Fi] 
ischée puis F:prendre D:deposer Â:accr o 
+iavancer —ireculexr F:fin 
Couleurs: 1L,8,3 
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10 ‘--------- COMPOSITION DE FAYSAGE AVEC ANIMATION 
29 MODE I 
30 CE=1:CF=0 ‘ ecriture/fond 


40 PAPER O:PEN ! 
50 INK O,O:INE 1,26:INK 2,2:INK 3,6 


60 DIM X(32),Y(32),V(32) ‘ coordonnees/vitesse 
70 DIM S$(32 

89 NS=3 " nombre de figures de base 
90 NN=NS ‘ nombre total de figures 

100 


110 LOCATE 1,23:PRINT "Fleches puis P:prendre D:deposer Asaccroc 
her" 

120 LOCATE 1,24:PRINT "+:avancer -:reculer F:fin”" 

130 LOCATE 1,25:PRINT "Couleurs: 1,2,3" 

140 EF$=CHR$ (32) +CHR# (10) +CHR$ (8) +CHR$ (32) +CHR$ (11) ‘ effacement 
PQ. Mes ssssesesesre locomotive 

160 C=145 " ler caractere a modifier 

170 SYMBROL AFTER C 

180 SYMROL C,0,0,6,0,16,0,48,48 

190 SYMBOL C+1,0,0,0,0,254,198,254,254 

200 SYMROL C+2,127,127,127,127,2595,2959,24,24 

210 SYMBROL C+3,254,254,254,254,255,255,24,24 

220 S$(1)=CHR$(C) +CHR$ (C+1) +CHR# (10) +CHR$ (8) +CHR# (8) +CHR$ (C +2) +C 
HR$(C+3)+CHR# (11) 

2IQ =srrssesersrsserese maison 

240 SYMBOL C+4,12,12,63,127,255,64,95,85 

250 SYMBROL c+5,0,0,248,252,299,2,2,2 

260 SYMBOL c+6,95,85,85,85,95,64,64,127 

270 SYMBOL c+7,122,74,74,106,74,74,74,254 

280 S$(2)=CHR$(C+4) +CHR#(C+E) +CHR$ (10) +CHR$S (8) +CHR$(B) +CHR$ (C+6) 
+CHR$(C+7)+CHR$ (11) 

290. ‘-s=sesesss arbre 

300 SYMROL C+8,1,3,7,7,15,15,15,31 

310 SYMROL C+9,0,128,192,192,224,224,240,240 

320 SYMROL C+10,63,63,63,3,3,3,3,15 

330 SYMBROL C+11,248,248,248,0,0,0,0,192 

340 S$(3)=CHR$(C+8) +CHRS# (C+9) +CHR# (10) +CHR$ (8) +CHRS$ (B) +CHR$ (C+10 
)+CHR#(C+11)+CHR$(11) 

350 ‘----------- AFFICHAGE FIGURES DE BASE 

360 FOR S=1 TO NS 

370  X(S)=1:Y(S)=S%3 

380 LOCATE X(S),Y(S):PRINT S#(5) 

390 NEXT S 

400 ‘ 

410 X=64:Y=384 

420: fsseessze Curseur clignotant 

430 T=TEST(X,Y):TR=TEST(X+2,Y) 

440 ‘ 

450 C$=INKEY#:IF LEN(C$)<}0 THEN 510 

460 PLOT X+2,Y,CE 

470 PLOT X,Y,CE:FOR TP=1 TO Î10:NEXT TP:PLOT X,Y,CF 

480 GOSUB 870 

490 GOTO 450 

300 ‘--- 

910 FLOT X,Y,T:PLOT X+2,Y,TE 


920 
930 
540 
9390 
J60 
370 
380 
590 
6800 
610 
620 
630 
640 
850 
660 
b70 
&Bû 
690 
700 


710 
729 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
B8B0 
899 
900 
910 


920 


930 
740 
950 
969 
970 
980 
990 
1960 
1010 


C$=UPPERS$(C#) 
C=ASC(C#) 


IF C=242 THEN IF X2>15 THEN X=X-16:G0OT0 430 
IF C=243 THEN IF X<580 THEN X=X+16:GO0OT0 4:70 
IF C=240 THEN IF Yé384 THEN Y=Y+16:G0T0 430 
IF C=241 THEN IF Y:15 THEN Y=Y-16:G0TD 430 


IF C$="F" THEN END 


IF C$>"O" AND C#$£"4" THEN CE=VAL(C#):PEN CE 


IF C$="P" THEN GOSUR 670 

IF C$f="D" THEN GOSUE 780 

IF C$="A" THEN GOSUR 1080 

IF C#="4" THEN V=1:GOSUR 980 

IF C$="-" THEN V=2:GOSUB 980 

GOTO 430 

Se Ce ie Po ON PREND 

S5=0 

XC=INT(X/16)+1: YC=INT((400-V)/16)+1 
FOR S=1 TD NS 


IF XC>=X(5) AND XC£=X(S)+2 AND YC}=Y(S) 


THEN 730 
NEXT S 

RETURN 

56=5 

PRINT CHR#(7): 

LOCATE 1,21:PRINT S$(9S) 
RETURN 

tm ON POSE 

IF SS=0 THEN RETURN 

IF NN>230 THEN RETURN 
XC=INT(X/16)+1:YC=INT((400-Y)/16)+#1 
IF XC4 THEN RETURN 
NN=NN+1:S$ (NN) =S# (99) 
LOCATE XC,YC:PRINT S#(NN) 
YINN)=YC: X (NN) =XC 


-------- AVANCE 
IF NN=NS THEN RETURN 
FOR S=NS+1 TO NN 


GRAPHIQUES ! 39 


AND YC<=Y(S)+2 


IF V(S)=0 THEN 950 
X(S)=X(5)-V(5) 
IF X(5)<6 
THEN LOCATE X(5),V(S):PRINT EF$:EFS#$:EF#;EF#$:EF#:X(S)=34 
IF X(S)>34 
THEN LOCATE X(6),Y(S):PRINT EF#;EF#:EFS$:EF#:X(S)=6 
IF V(S):0 THEN LOCATE X(5),Y(S):PRINT S$(S);EF$;EF+# 
IF V(S)<Q THEN LOCATE X(5)-1,Y(S):PRINT EF$;EF#:S$(S):;EF$ 
NEXT S 
RETURN 
ressens REGLAGE VITESSE 
XC=INTIX/16)+1:YC=INT((400-Y)/16)+1 
FOR S=NS+i TO NN 


IF YC>=Y(S) AND YC<=Y(S)+1 THEN 1040 


NEXT SG 
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1020 
1950 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


1130 
1140 


RETURN 
IF V=1 THEN IF XC>3 THEN V(S)=V(S)+0.5:V=0 
IF V=2 THEN IF XC>3 THEN V(S)=V(6)-0.5:V=0 
RETURN 


EE ACCROCHAGE 
XC=INT(X/16)+1:YC=INT((400-Y)/16)+1 


FOR S=NS+1 TD NN 

IF YC<>Y(S) THEN 1130 

IF XC-2=X(S) 

THEN S$(S)=5$(S)+6$(SS):LOCATE XC,YC:PRINT S$(65):RETURN 
NEXT S 
RETURN 


MINI INTERPRÉTEUR LOGO 


La plupart des langages proposent des ordres graphiques où sont spécifiées les coor- 
données X et Y des droites à tracer. 


Le langage LOGO dispose d'ordres graphiques originaux : 


AVANCE distance Trace une droite d’une longueur égale à la distance spécifiée. 


ROTATION angle Change la direction du tracé en lui ajoutant l'angle spécifié. 


Un curseur indique à chaque instant la direction courante. En frappant “ROTATION 90” 
vous voyez le curseur tourner de 90 degrés. 


EX: AVANCE 468 
ROTAT 96 
FINI pour stopper 
CMDE ? avance 76 
CMDE 7 rotat 99 
CMDE ? avance 7? 
CHDE ©? rota 9 
CHDE 7 avance 79 
CMDE 7 rotat 9 
CHDE 7? D 


Le tracé de la droite en fonction de l'angle courant se fait ainsi : 


DX=distanceXCOS(angle) 
DY=distanceXSIN(angle) 
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Les instructions de base sont : 


LEVE Le tracé n'apparaît pas. 

BAISSE Le tracé apparaît. 

EFFACE Efface l'écran. 

COULEUR numéro Change la couleur (1,2,3). 
COLONNE numéro Positionne le curseur (de 1 à 600). 


LIGNE numéro 
DISTANCE valeur 


Positionne le curseur (de 1,399). 
Change la distance par défaut. 


DIS+ valeur Augmente la distance courante. 
CENTRE Positionne le curseur au centre. 
BOUCLES 


Les instructions entre REPETE X et ENCORE sont exécutées X fois. 


CMDE © REFETE 4 = 
CHDE AVANCE SE 
CMDE + ROTAT 9€ 
CMDE © ENCORE RER 
Cette séquence dessine un carré. 
FONCTIONS 
Des “fonctions” se déclarent ainsi : 
CMDE © DEFTI TRIANCGLE 
CN FCT % RÉPÉTÉ 
EX FCX © AJ NC TE ". 
CD FCX + ROTAT 166 __ 
CD EFCT ? ENCORE 
CD ECT ? FINE 
CMIE 
CMDE © TRIANGLE 


Pour dessiner un triangle, il suffit ensuite d'écrire : 


TRIANGLE 


Au moment de la lecture des instructions, la “fonction” est remplacée par la suite des 
instructions qui y sont écrites. Jusqu'à cinq fonctions peuvent être définies. 
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Remarques sur le programme : 


0 Pour les boucles “REPETE”, les commandes sont stockées dans une table des 
commandes CDS$(). Un système de pile permet de gérer des boucles emboîtées. 























PL — 1 | REPETE4 
2 AVANCE 40 eo 1) 
3 ROTATION 90 = 
4 | ENCORE 
PILE RP() PILE NB() 


CD$ 


0 Les fonctions sont stockées dans une table à deux dimensions F$(). Chaque ligne 
de la table peut contenir jusqu'à 20 commandes. 





Table F$(,) 
F1 CARRE 
2 TRIANGLE 














AMIE © HMEFEUNE 6 Fe “ 
CMDE AUMMCE LE n 
CMDE ©  ROTAT 18 ! , 
CMDE © ENCORE | 
CMDE © ! 
CMDÉ Ù 
CMDE ® DEFT CORRE 
CD FCT % REPETIE 4 
CD FAT “2 AL APCE | 
CD ECT RC TEA TL CE 
CD FCT + ENCORE 
CD LECT + FINE 
CMDE © REPFETE 18 
CMDE © CARRE 
CMDE ©?  DIS+ € 
CMDE 7 EMECCRHE 

CMDE 7? DEFTI ETOILE 

CD FCT % RÉPFETÉ LS 

CD EFCT © AUÔANCE 70 

CD ECT ®  ROTAL 160 

CD FCT ? ENCORE 

CD FCT 9? FINE 

CMDE 7 | 

CMDE © HREPETE # 

CMDE © LEUE 

CMDE AUAMCE 70 

CMDE BAISSE 

CMDE E TO LE 

CWMDE LEUE 

CMDE AUANCE 7€ 

CMD ® ROTAT 45 

ÜMDÉE © ENCORE 
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DISTANCE 4 
T 
H 
+ 
A 
KR 


SN TS 


AE a oi ol 
ASS 
ZIILIIEEZ 
LOUOOUULY 


MO © & GC MS © 
JO n PUBS 
el #o Ÿ née 
WU LH aE 
HZ TEURC HAUT EU 
HInSZTZIZCZCZIIZCZ 
LOT ER TT MT ET 
HORZS0-0202630565 
L MINCE CRTETEIRT 


ÉTAT SO SES SE SENS 


Pc a ic PE 
SÉÉÉÉSASRÉRSÉQSS 


UUUUUCUOUTUUUL Dee, 





en _— 
Le 


Le 


Bu 
o. œ 
B 
ÉdObY @ # 
HNZTÉ 
CHCHOE Hdbt 
MDOÛZ HOT 
HATÉZH HÉROS 
Ré Eu LHOU 
fi AUEZ 
Sté LE 


EE EE En 
SISTER Le) 
MS 
SSSSS 
SARACAPESEZ 
SISISLRIS 88818) 









Les 


& 
EVE fl 
MEUTÉE 
RTE 
Dre Le LE 
EGÈSZ 
E E 


Dértntnd 
sde 
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© 
oO (ep) 
es! . 
a ji 
Æ QE & 
EuZTW 


THÉ Rite 
LHSC0h HEC 
MTROZ MÈRE 
4 ZH mICo 
EE Him QUEU 
e H Z 
ACCCCG EE 


CS EE Et EE Cr 
QUOUU 

Pi PP FE 

a soie) 

ZARRSREZIELZ 

12,9,910,6)6)8,0 10/6 18) 


© © 

[ay fa (a (ay) 
EX L'I G 
E M z® 
EUR Em © 
TZTE Hg Q04 HE 


CHTROR DRERQIOE MO 
MDOUZ PRO THOMIZUE 
RCE ZE HAT TOUS CM O 
ER He CHUAQTAZEOS TO 
es rs He Tz 
ACC CC a 


Lt Et Et Et Et C5 EG GG Ge 
QUO 

Fi PE ne 
= ARSSSSSSeRSSE 
IRRSSRELILILIEEEZELZ 
OU NJOTOUUOUUOS 


f? 





later 
RU © 
+ % g 
HE 4 ot 
ŒUeg HE EN À 
ÉHZCE Hi QUE HE 
HHTHÔE HMONEUE HU 
LOOUZ MOD THONOZUIE 


ET TE GS LUS ET ed 
RE ke Cond Tt Zoo 
(el [Éafe a no 
Ré | 


CEE EE EEE EE GENE E 
JUUUC 

a a 2 a a 
= AfACAGARSAAAS 
IRAQCALIELIIEIEEEEEE 
OUGOUOGOOUGOCUCOUTC 


SIMULATEUR LOGO 


10 
29 


30 MODE i 


40 


, 


a] 


INK 2,2:INE 
450: YC 


,0 


26:INK 1 


INK 0, 


=20 


=1:CY=1:CY=0:DIST 


150:CX 
table fonctions 


memoire centre 
ecriture 


: XC= 


90 DIM CD#(100) 


5,20) 
YC 


DIM F#{ 


60 
79 XX 


XC:YY= 
Î 


80 CE 
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90 CF=0 ‘ fond 

100 

110 WINDOW #0,1,21,1,23 

120 WINDOW #1,35,39,1,3 

130 PRINT "EX: AVANCE 40 

140 PRINT " ROTAT 90" 

150 PRINT 

160 FRINT "FINI pour stopper'":PRINT 

170. <== 

180 L=i ” pointeur ligne de commande 
190 ‘ 

200 DS=1:GOSUR 1080 " appel curseur apparent 
210 INPUT "CMDE ";x$ 

220 X$F=UPPER$(XS$) 


230 DS=0:G60SUB 1080 " effacement curseur 
240 IF X$="" THEN 200 
250 ‘ 


260 IF LEFT$#(X$,4)="DEFI" THEN GOSUR 930:GOT0 200 
270 FOR K=1 TO 5 

280 IF X$=F#(K,0) THEN GOSUR 1020:GO0T0 380 

290 NEXT K 

300 ‘ 

310 IF LEFT$(X$,4)="REPE" THEN R=B+1 

320 ‘ 

330 IF LEFT$(X$,4)="ENCO" THEN B=B-1 

340 

350 CD$(L)=X$ " stockage commande dans CD$() 
360 L=L+1 

370 ‘ 

380 IF B>0 THEN 200 

390 : 

400 NC=L-1 ‘ nombre de commandes 
410 PL=1 

420 ‘ 

430 LG$=CD$ (PL) 

440 IF PLÈ>NC THEN 180 

450 C$=LEFT$(LG$,4) 

460 IF C$="REPE" THEN GOSUB 670:G0OT0 450 

470 IF C$f="ENCO" THEN GOSUB 710:G0T0 430 

480 IF C$="AVAN" THEN GOSUR 810 

490 IF C$="ROTA" THEN GOSUB 740 

900 IF C$="DIST" THEN GOSUB 630:1F Vé}>O THEN DIST=V 
910 IF C$f="DIS+" THEN GOSUB 630:1IF V<>O THEN DIST=DIST+V 
920 IF C$f="LEVE" THEN LV=1:LOCATE #1,1,1:PRINT #1,C$ 
930 IF C$="BAIS" THEN LV=O0:LOCATE #1,1,1:PRINT #1,C$ 
540 IF C$="COUL" THEN GOSUR 63%0:IF V}>0 THEN CE=V 

990 IF C$="EFFA" THEN CLG 

960 IF Cf="COLO" THEN GOSUR 630:1IF V<>O THEN XC=V 
970 IF C$="LIGN" THEN GOSUB 630:IF V<>0 THEN YC=V 
980 IF C$="CENT" THEN XC=XX:YC=YY 

990 IF C$="FINI" THEN END 

600 PL=PL+1:IF PLÈNC THEN 180 

610 GOTDO 4:50 
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G2Q: “ssseess recherche espace 

630 P=INSTR(ILG#$,CHR#(32)) 

640 IF P=0 THEN V=0:RETURN 

650 ee VAL(RIGHT#(LG#F,LEN(LG$)-P)):RETURN 
66Q ‘-------- repete 

670 GOSUR 630 

680 FR=PR+1:RP(PR)=PL+{:NR(PR)=V 

690 PL=PL+1:RETURN 

JO Hs-=-ss=sssssssessss ENCORE 

710 NB(PR)=NB(PR)-1:IF NB(PR)>G THEN PL=RF(PR):RETURN 
720 PRE PR-1:PL=PL+1:RETURN 

730: "se -s--es----ersee ROTATION ANGLE 
740 GOSUR 630 

750 ANG=ANG+V 

760 IF ANG>=360 THEN ANG=ANG-:360 

770 AR=ANG/36O0%PI #2 

780 CX=COS(AR):CY=SIN(AR) 

790 RETURN 

8B0Q ‘------------------- TRACE DROITE 
810 GOSUR 630 

820 IF F=0 THEN 840 

B30 DIST=V 

840 DX=DIST*CX:DY=DIST#CY 

B50 IF XC+DX<1 OR XC+DX>640 THEN RETURN 
860 IF YC+DY<1 OR YC+DY>399 THEN RETURN 
870 IF LV=1 THEN 900 

880 ‘ 

890 PLOT XC,YC,CE:DRAWR DX,DY,CE 

900 XC=XC+DX:YC=YC+DY 

910 RETURN 

A STOCKAGE FONCTION DANS F#(,) 
930 NF=NF+1 

940 F$FINF,O)=RIGHTS(X$,LEN(X#)-5) 

950 FOR F=1 TO 20 

960 INPUT "CD FCT ";F# 

970 F$(NF,P)=UPPER#(F#) 

980 IF F#(NF,P)="FINF" THEN RETURN 

990 NEXT P 

1900 STOP 

LOTO esse sepessess INSERTION FONCTION 
1020 Ps1 

1030 

1040 IF F#$(K,P)="FINF" THEN RETURN 

1050 CD$(L)=F$(K, P) 

1960 FE P+i:L=L+i:GOTO 1040 

FO70. esse ssss-ssrz CURSEUR 

1080 DX=CX#+6:DY=CY*é6 

1090 IF DS=i THEN CL=CE:X=XC+DX:Y=YC+DY:IF TEST(X,Y)<5;0 THEN CL=0 
1100 IF DS=0 THEN CL=CF:X=XC+DX:Y=VC+DY:IF TEST(X,Y)=0 THEN CL=CE 
1110 PLOT XC,YC,CL:PLOT XC+DX,YC+DY,CL:DRAWR DX,DY,CL 
1120 RETURN 


1130 
1140 ex: AVANCE 50 
1150 ROTAT 90 

1160 AVANCE 60 


GRAPHIQUES | 47 


1170 

1180 ‘  DEFI CARRE 

1190 ‘  REPETE 4 

1200 ‘ AVANCE 60 

1210 ‘ ROTAT 90 

1220 ‘ ENCORE 

1230 ‘  FINF 

1240 ‘ 

1250 ‘ CARRE 

MSIE — 


Sur AMSTRAD la définition des notes se fait en donnant la période associée, ce qui est 
moins pratique que de définir la note et le niveau d'octave. 


Ci-dessous, nous indiquons en DATA la correspondance note-période pour le niveau 
d'octave —1. Pour les autres niveaux d'octave, nous calculons la période nécessaire à 
l'instruction “SOUND canal,période”. 


10 MUSIQUE 
20 DIM NT$(12) ,PER(12) 
30 ‘--- VALEURS PERIODES POUR OCTAVE -1 


40 DATA 956,D0 
50 DATA 902,D0# 
60 DATA B51,RE 
70 DATA 804,MIb 
80 DATA 758,MI 
90 DATA 716,FA 
100 DATA 676,FA# 
110 DATA 638,S0L 
120 DATA 602,S0L# 
130 DATA 568,LA 
140 DATA 536,51Ib 
150 DATA 5086,SI 


160 
170 FOR J=1 TO 12:READ PER(J) ,NT$(J):NEXT J 
180 ‘----------- MORCEAU À JOUER 


190 DATA LA,2,20,50L,2,20,LA,2,50 
200 DATA SOL,2,20,FA,2,20,MI1,2,20 
210 DATA RE,2,20,D0#,2,50,RE,2,90 
220 DATA LA,1,20,80L,1,20,LA,1,50 
230 DATA MI,1,35,FA,1,35,D04#,1,35 
240 DATA RE,1,80,LA,0,20,S0L,0,20 
250 DATA LA,0,50,S0L,0,20,FA,0,20 
260 DATA MI,0,20,RE,0,20,D0#,0,20 
270 DATA RE,0,90,RE,2,20,D0,2,20 
280 DATA RE,2,20,SIb,1,20,RE,2,20 
290 DATA LA,1,20,RE,2,20,50L,1,20 
300 DATA RE,2,20,FA#,1,20,RE,2,20 
310 DATA S0L,1,20,RE,2,20,LA,1,20 
320 DATA RE,2,20,51b,1,20,RE,2,20 
330 DATA RE,0,20,RE,2,20,MI,0,20 
340 DATA RE,2,20,FA#,0,20,RE,2,20 
350 DATA FIN,0,0 it 
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360 *---- 

370 READ NT$,0CT,DUR 

380 IF NT$="FIN" THEN END 

390 PRINT NT$,0CT,DUR 

400 FOR N=1 TO 12 

410 IF NT$=NT$#(N) THEN SOUND 1,PER(N)/(2*(OCT+1)),DUR 
420 NEXT N 

450 GOTO 370 

FO SSRe ses f=fleche haut 


Le programme ci-dessous décode un morceau défini sous forme de périodes pour 
donner la note et l'octave. 


10 ere DECODAGE PERIODE --> NOTE ET OCTAVE 
20 DIM NT$(12),PER(12) 
30 ‘---- VALEURS POUR OCTAVE -1 


40 DATA 956,D0 
50 DATA 902,D0% 

60 DATA 851,RE 

70 DATA 804,MIb 

80 DATA 758,MI 

90 DATA 716,FA 

100 DATA 676,FA% 

110 DATA 638,S0L 

120 DATA 602,S0L# 

130 DATA 568,LA 

140 DATA 536,S1Ib 

150 DATA 506,81 

160 ‘ 

170 FOR N=1 TO 12:READ PER(N) ,NT#(N):NEXT N 

180 ‘-MORCEAU A DECODER(PERIODE+DUREE) --> NOTE+OCTAVE+DUREE 

190 DATA 71,20,80,20,71,50,80,20,89,20,95,20,106,20,113,55,106,9 
0,142,20,159,20,142,50,190,35,179,35,213,60,213,80,284,20,319,20 
,284,50,319,20,358,20,379,20,426,20,426,50,426,90 

200 DATA 999,999 

210 

220 READ FER,DUR:IF PER=999 THEN END 

230 SOUND 1,PER,DUR 

240 FOR N=1 TO 12 

250 FOR OCT=-1 TO 4 

260  R=PER(N)/(2*(OCT+1)) ‘ Azfleche haut 

270 IF PERDR-1 AND PERCR+1 THEN PRINT PER,NT#(N) ,O0CT,DUR 

280 NEXT OCT 

290 NEXT N 

300 GOTO 220 


RUN 
71 LA 2 20 
80 SOL 2 20 
71 LA 2 920 
89 SOL 2 20 
89 FA 2 20 
95 MI 2 20 
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Nous proposons un programme permettant d'enregistrer dans un fichier un morceau à 
partir du clavier. 


L'opérateur frappe la note et l'octave qui sont enregistrées dans un fichier. 


La durée de base prévue pour une note est de 20 unités. En appuyant trois fois de suite 
sur la même touche, l'opérateur définit une note de 20x3-60 unités. 


Naturellement, pendant l'enregistrement au clavier les notes ne sont pas audibles. C'est 
un programme de lecture du fichier qui permet d'écouter le morceau enregistré. 


F0 ressesase ENREGISTREMENT D'UN MORCEAU DANS UN FICHIER 
20 MODE 2:PAPER O:PEN 1:INK 0,26:INK 1,0 
JQ: sspasessessssssss octave -{ 


40 DIM NT$(12) ,PER(12) ,CL#(12) 
50 DATA D0,956,D,D0#,900,E,RE,851,R,MIb,804,N 
60 DATA M1,758,M,FA,716,F,FA#,676,6,S0L,638,S 
70 DATA S0OL#,602,D,LA,568,L,S1b,536,4,S1,506,2 
80 ‘ 
90 FOR N=1 TO 12 
100 READ NT#(N),PER(N) ,CL#(N) 
110 NEXT N 
120 CLS 
T0. 
140 FOR N=1 TO 12 
150 LOCATE N#5,10:PRINT NT$(N) 
160 LOCATE N#5,11:PRINT CL#(N) 
170 NEXT N 
180 LOCATE 1,20:PRINT "OCTAVE: 0,1,2 " 
190 LOCATE 1,21:PRINT "QG: FIN" 
200 OCT=2 * OCTAVE 
210 LOCATE 1,4:INPUT "NOM FICHIER ";NF$ 
220 DPENOUT NF$ 
230 
240 C$=INKEY#:IF LEN(C$#)=0 THEN 240 
250 C$=UPPERS$ (C#) 
260 IF C$>="0" AND C$<"=2" 
THEN OCT=VAL(C#):LOCATE 1,1:PRINT "OCTAVE:":; OCT 
270 IF C$="G" THEN CLOSEOUT:END 
280 FOR N=1 TO 12 
290 IF C$=CL$#(N) THEN 33 
300 NEXT N 
310 GOTO 240 
320 
330 PRINT #9,NT$#(N) 
340 PRINT #9,0CT 
350 PRINT #9,20 
360 LOCATE 20,1:PRINT NT$(N) SPC (2) 
370 SOUND 1,PER(N)/(2*(O0CT#1)),20 ‘ “zfleche haut 
380 GOTO 240 — 
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OCTAVE: 2 SI 


OCTAVE: 0,1,2 
NOM FICHIER ? M2 a: FIN 


D9 D0# KE MID MI FA FA# SOL SOL# LA 
D Ë R N M F 6 5 D L 


19 ‘- JOUE UN MORCEAU ENREGISTRE DANS UN FICHIER(PAR ‘EMUS') 


20 MODE 2 
70 DIM NT$#(12) ,PER(12) 

40 ‘--- VALEURS PERIODES POUR OCTAVE -1 

50 DATA 956,D0 

60 DATA 902,D0# 

70 DATA B51,RE 

80 DATA 804,MIb 

90 DATA 758,MI 

100 DATA 716,FA 

110 DATA 676,FA# 

120 DATA 638,S0L 

130 DATA 602,SOL# 

140 DATA 568,LA 

150 DATA 536,SIb 

160 DATA 506,S1I 

170 

180 FOR N=1 TO 12:READ PER(N) ,NTS(N):NEXT N 
1909 ‘---- 

200 INPUT "NOM FICHIER ";NF$ 

210 OPENIN NF$ 

220: ; 

230 IF EOF THEN CLOSEIN:END 

240 INPUT #9, NT$,0CT,DUR 

250 PRINT NT$,0CT,DUR 

260 FOR N=1 TO 12 

270 IF NT$=NTS$(N) THEN SOUND 1,PER(N)/(2*(OCT+1)) ,DUR 
280 NEXT N 

290 GOTO 230 


(a) 
2 


1 


I 


GRAPHIQUES | 51 


Ce programme vous permet d'apprendre l'alphabet MORSE. Par exemple, en appuyant 


sur 
son 


10 
20 


40 
90 
60 
70 
80 
90 
190 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 
220 


250 
240 


la lettre S, vous entendez trois sons brefs. En appuyant sur 0, vous entendrez trois 
s longs. 


Éns eee s MORSE MORSES() 


30 MODE 2:PAPER O:PEN 1 À 


DIM MORSES$ (26) B SE 
DATA de eee: 

DATA Apres bre. 
DA PA ee dd ae ss 


DATA = pme mm mm ee pee 
DATA us ge mee—qmeqe à z 


FOR I=1 TO 26:READ MORSES$(I):NEXT I 


C$=INKEV#:IF LEN(C#)=0 THEN 130 
C$=UPPERS$ (C4) 
P=ASC(C#)-64:IF P<1 OR P>26 THEN 130 


X#=MORSES# (P) 
PRINT X#:SPC(2): 
FOR P=1 TO LEN(X#) 
IF MIDS(X$,P,1)="." 
THEN SOUND 1,350,8:FOR TP=1 TO 150:NEXT TP 
IF MID$(X$,P,1)="-" 
THEN SOUND 1,350,40:FOR TP=1 TO 400:NEXT TP 
NEXT P 
FOR TP=1 TO 3OO0:NEXT TP 
GOTO 139 
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RAPPELS SUR LES FICHIERS 


Pour l'instant les fichiers sur AMSTRAD sont seulement du type séquentiel. 


Une exploitation d'un fichier séquentiel, enregistrement par enregistrement, est très 
inconfortable, la gestion des ajouts et suppressions nécessite l’utilisation de fichiers 
intermédiaires. Aussi est-on amené à gérer les informations dans des tables en mé- 
moire centrale et à les sauvegarder périodiquement. 


Naturellement, la taille des fichiers séquentiels se trouve ainsi limitée à celle de la 
mémoire centrale. Par exemple, si chaque fiche occupe 100 caractères le fichier ne 
peut comporter que 300 fiches. 


Table 
NOMS() RUES() VILLES() 
DUPONT PARIS 
MARTIN LYON 
Rang — | BALU MONTIGNY 





Sauvegarde Lecture 


DUPONT PARIS MARTIN RUE 00 LYON 


Fichier séquentiel (cassette ou disquette) 
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FICHIER D’ADRESSES 





Le programme de fichier d'adresses est organisé avec des sous-programmes : 
CREATION.LISTE,SAUVEGARDE,LECTURE. 








CREATION 
MENU: INPUT "Mode ":M$ 


IF M$="C" THEN GOSUB CREATION 
IF M$="L" THEN GOSUR LISTE D RETURN 
GOTO MENU | 
ue LISTE 
RETURN 
Un menu de type numérique se présenterait ainsi : 


MENU: INPUT "Mode 1,2,3,.."3:M 
ON M GOSUR GOSUB no ligne 1,no ligne 2,.., 
GOTO MENU 


Nous n'utilisons pas ce type de menu ; les codes numériques sont peu mnémoniques. 
En outre, la lisibilité d'une instruction ON GOSUB comportant plus de 10 numéros de 
ligne nous semble douteuse. 


Pour convertir des codes alphabétiques en codes numériques, on pourra faire : 


MENU: INPUT "Mode (C,L,M....) ":;M$ 
M=INSTR("XCLM",M$# 
IF M2 THEN GOTO MENU 
ON M-1 GOSUB lignei,ligne 2,ligne 3,.. 
GOTO MENU 


10 ‘ FICHIER D'ADRESSES SIMPLE 

29 ‘ 

30 MODE 2:INK 0,0:INK 1,26:PAPER O:PEN ! 

40 DIM NOM$ (300) ,RUE$ (300) ,VILLES#$ (300) ,CPST#(300) 

90 DIM CLE$(200),INDEX(200) 

80 

70 NFICH=0 ‘ nombre de fiches 
80 INPUT “Nouveau fichier (O/N) "“;R$ 

90 IF R$<>"0" AND R$<>"o" THEN G6GOSUB 550 


100 =z==z======2=22========== MEN 

110 CLS:PRINT "Modes:":PRINT 

120 PRINT TAB(3) "C: creation" 

130 PRINT TAB(3) "LF: liste du fichier" 
140 PRINT TAR(3) "GS: suppression" 

150 PRINT TAB(3) "M: modification" 

160 PRINT TAB(3) “LT: liste triee" 


170 PRINT TAB(S3) "ETIQ: etiquettes" 
180 PRINT TAB(3) "FIN: fin de session(sauvegarde)" 
190 


— 
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PRINT:INPUT "Mode ":M$ 
M$=UPFERS$ (M$) 

IF M$="C" THEN GOSUR 310 

IF M$="FIN" THEN GOSUR 440:END 
IF M$="LF" THEN GOSUB 670 

IF M$="M" THEN GOSUR 760 

IF M$="S" THEN GOSUR 980 

IF M£f="LT" THEN GOSUB 1170 


IF M$="ETIQ" THEN GOSUR 1460 " programme suivant 
GOTO 110 

‘z====2==22322=====2==2=2==22=2=22== CREATION 

PRINT 

INPUT "Nom (ENTER pour fin) ":;NOM$ 

IF LEN(NOM$)=0 THEN RETURN ‘ fin de mode? 
NFICH=NFICH+I 

RANG=NFICH ‘ adresse de rangement 


NOM$ (RANG) =NOM$ 

Jesse entree des zones 

PRINT 

LINE INPUT "Rue? ",RUE$: RUE$(RANG)=RUES$ 

LINE INPUT "Ville? ",VILLES#$:VILLE#(RANG)=VILLES$ 
LINE INPUT "Code postal? ",CPST$:CFST$(RANG)=CPSTS$ 


====2===2==2=2==22=2==22=2==2= GAlIVEGARDE TABLES 
OPENOUT "ADR" 
PRINT #9,NFICH 

FOR F=1 TO NFICH 

PRINT #9,NOM#(F) 

PRINT #9,RUE#(F) 

FRINT #9,VILLE#(F) 

PRINT #9,CPST#(F) 
NEXT F 

CLOSEOUT 
RETURN 

‘=zzz=z2=22=222222: LECTURE FICHIER DANS TABLES 
OPENIN "ADR" 

INPUT #9,NFICH 

FOR F=1 TO NFICH 

LINE INPUT #9,NOM#(F) 

LINE INPUT #9,RUE$(F) 

LINE INPUT #9,VILLE#(F) 

LINE INFUT #9,CPST#(F) 
NEXT F 

CLOSEIN 
PRINT:PRINT NFICH;"Fiches" 

FOR TP=1 TO 2000:NEXT TF 
RETURN 

‘ssss=s=sz=================2==22===2=2= liste du fichier 
FRINT:PRINT "Liste du fichier":PRINT 
FOR F=1i TO NFICH 

IF F MOD 20=0 THEN INPUT "AFFUYER SUR ENTER";x# 
PRINT NOM$(F) TAB(13) RUE#$(F) TAB(40) VILLES#$(F) 
NEXT F 
PRINT: INPUT "Appuyer sur ENTER ":;X$ 

RETURN 
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Lors d'une création de fiche nous ne vérifions pas si la fiche existe déjà comme il 
conviendrait de le faire. 


2 FOR RANG=1 TO NFICH 
3 IF NOM$=NOM$ (RANG) THEN PRINT "Existe deja":60T0 310 
4 NEXT RANG 


335 
33 
+3 


Pour procéder à des modifications de fiches, il faut ajouter le sous-programme suivant 
et prévoir son appel au menu. 


Nous affichons les anciennes valeurs des zones et si l'opérateur ne désire pas les 
modifier, il appuie sur ENTER. On s'aperçoit que les modes CREATION et MODIFI- 
CATION pourraient être fusionnés. C'est ce que nous ferons dans les programmes 
suivants. 


Si un nom a été écrit en majuscules lors de la création il doit être écrit aussi en majus- 
cules lors de la recherche. En changeant l'instruction 800, la recherche peut s'effectuer 
en majuscules où minuscules : 


B0G IF UPPER$(NOM$)=UPPER$ (NDM$ (RANG)) THEN GOTO 840 


On pourra également “normaliser” les noms en majuscules avant de les placer dans le 
fichier : 


360 NOM$(RANG)=UPPERS$ (NOM#) 


Mode ? M 
Quel nom(ENTER pour fin) ? DUPONT 


ENTER pour zones inchangees 


11,RUE NOBEL Nouvelle rue ? 13,RUE NOBEL 

MONTIGNY Nouvelle ville ? 

78180 Nouveau code postal 

750 ‘=====22=2=22222z===222=2=2-=- MODIFICATION 

760 FRINT:INPUT "Quel nom(ENTER pour fin) ";NOM# 

770 IF LEN(NOM#)=0 THEN RETURN ‘ fin de mode? 

780 ‘ 

790 FOR RANG=1 TO NFICH " recherche du nor 


800 IF NOM$=NOM$(RANG) THEN GOTO 840 
819 NEXT RANG 
820 PRINT:PRINT "N'existe pas":60T0 760 


830 
84Q PRINT:PRINT "ENTER pour zones inchangees":PRINT 
850 PRINT RUE$(RANG) TAB(20) " affichage ancienne valeur 


860 LINE INPUT "Nouvelle rue? ",RUE# 
870 IF LEN(RUE#){>0 THEN RUE$ (RANG)=RUE# 
880 ‘ ES 
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890 PRINT VILLE$(RANG) TAR(20) " affichage ancienne valeur 
900 LINE INPUT "Nouvelle ville? ",VILLE$ 

910 IF LEN(VILLE$)<>0 THEN VILLES$(RANG)=VILLES$ 

920 ‘ 

930 PRINT CPST$(RANG) TAB(20) 

940 LINE INPUT "Nouveau code postal? ",CPST$ 

950 IF LEN(CPST$)<>0 THEN CPST$(RANG)=CPST$ 

960 GDTO 760 


SUPPRESSION D’UNE FICHE 


Pour supprimer une fiche nous décalons toutes les fiches en aval de la fiche supprimée. 


NOM$ 


DUPONT 
MARTIN 


Rang — RS: 


BREBION 
MAIGNAN 


On B& © © — 





970 ‘========2======22=2==2===2==2=-==2==2=== GIJPPRESSION 

980 PRINT:INPUT "NOM ":; NOM$:IF LEN(NOM$)=0 THEN RETURN 
990 ‘ 

1000 FOR RANG=1 TO NFICH 

1910 IF NOM$(RANG)=NOM$ THEN 1050 

1020 NEXT RANG 

1950 FRINT:PRINT "N'EXISTE PAS":PRINT:GOTO 980 

1040 

1050 PRINT 

1060 INPUT "SUPPRESSION OK (O/N) ":3R#:1F R$<>"Q" THEN 980 
1070 FOR J=RANG TO NFICH-1i 

1980 NOM#(J)=NOM#(J+1) 

1090 RUE$F(J)=RUE#$(J+1) 

1100  VILLES$(J)=VILLES$(J+1) 

1110 CFST$(J)=CPST$(J+1) 

1120 NEXT J 

1130 NOM$(NFICH)="": RUES (NFICH)="": VILLES (NFICH)="":CPSTS$(NFICH) 


1140 NFICH=NFICH-1 
1150 GOTO 980 
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TRI 


Pour éditer une liste triée des fiches dans l’ordre des noms ou des villes nous ne trions 
pas les tables contenant les informations ; nous utilisons des tables intermédiaires CLES$() 
et INDEX (). 


Dans la table CLES$(), nous plaçons les clés à trier, et dans la table INDEX () les adresses 
de rangement des informations dans les tables NOM$(), RUES() et VILLES(). 


Après avoir trié les tables CLES$() et INDEX(), nous éditons la liste triée. Avant le tri, les 
tables se présentent ainsi : 


CLES() INDEX() VILLES() RUES () NOMS() 


1 | MONTIGNY 1 — 1] MONTIGNY 
2 |LYON 2 —  2|LYON 
3 |PARIS 3 —  3|PARIS 


Après le tri, les tables se présentent ainsi : 







DUPONT 
BALU 


MARTIN 





CLES$() INDEX() VILLES () RUES () NOMS() 














1 [LYON 2 1 | MONTIGNY 
2 | MONTIGNY Î 2 | LYON 
3 |PARIS 3 3 | PARIS 





En lisant séquentiellement la table INDEX() et en se servant des numéros qu'elle contient, 
on obtient la liste triée. Pour obtenir une liste triée par noms, placer les noms dans la 
table CLES$() (au lieu des villes). 


1160 ‘=======2===2==2=2=222222= SELECTION/TRI FAR VILLE 
1179 INPUT "Quelle ville (ENTER pour toutes) ";V# 
1180 NC=0 ° nombre de cles 


1190 FOR F=1 TO NFICH 

1200 IF LEN(V#)€30 THEN IF V#<%VILLE#(F) THEN 1220 
1210 NC=NC+1:CLE# (NC) =VILLE#(F): INDEX (NC) =F 

1220 NEXT F 


1230 
1240 GOSUR 1330 " appel tri 
F250.===- edition 


1260 FOR F=1 TO NC 

1270 X=INDEX(F) 

1280 PRINT VILLE#$(X) TAR(15) NOM#&(X) 

1290 NEXT F 

1300 PRINT:INPUT "APPUYER SUR ENTER";X# 

1310 RETURN 

1320 "==---<-s-e-rsmsssesses-em—— tri shell 
1330 ECART=NC 

1:40 ECART=INT(ECART/2):IF ECART<I THEN RETURN 
1350 IV=0 

1360 FOR K=1 TO NC-ECART 

1370  J=K+ECART 

1380 IF CLE#$(J)>=CLE#$(K) THEN 1410 

1:90  X$=CLES$(K): CLE$(K)=CLES(J):CLE#S(J)=X#: IV=1 
1400  X=INDEX(K):INDEX(K)=INDEX(J):INDEX(J)=X 
1419 NEXT KE 

1420 IF IV=1 THEN 1:50 

1450 GOTO 1:40 
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ÉTIQUETTES 


Nous utilisons le fichier créé par le programme “fichier d'adresses”. 


Le nombre d'étiquettes par ligne est défini par la variable “NE” ; l'espacement vertical 
entre deux lignes d'étiquettes par la variable “VERT”. Les étiquettes sont éditées dans 
l'ordre des villes avec éventuellement une sélection par ville. Pour une édition dans 
l'ordre alphabétique, il suffit de placer dans la table CLES() les noms : 


CLES$(NC)=NOMS(F) au lieu de CLES(NC)=VILLES(F) 


Quelle ville (ENTER pour toutes) ? 


LEBOSSE DUPONT 
RUE XXX 11,RUE NOBEL 
14110 CONDE 78180 MONTIGNY 
BREBION MARTIN 
RUE XXX 14,RUE DE MILAN 
78180 MONTIGNY 75010 PARIS 
ROULET 


12,RUE XXXX 
75009 PARIS 


1440 ‘’=========2==2=2=====22==222===:== ETIQUETIES 
1445 ‘ À ajouter au programme ‘fichier d'adresses” 
1450 ‘ 


1460 INPUT "Quelle ville (ENTER pour toutes) ";V$ 
1470 INPUT "Ecran ou imprimante (E/1) “;R$ 

1480 C=0:IF R$="I" THEN C=8 " canal 

1490 NC=0 " nombre de cles 
1500 FOR F=1 TO NFICH 

1510 IF LEN(V$#)<>0 THEN IF V$<>VILLE$(F) THEN 1530 
1520 NC=NC+1:CLES$ (NC) =VILLES$(F): INDEX (NC) =F 
1530 NEXT F 

1540 ‘ 

1550 GOSUR 1600 ‘ appel tri 
1560 ‘ 

1570 GOSUB 1720 

1580 RETURN 

1590 ‘---------------------- tri shell 
1600 ECART=NC 

1610 ECART=INT(ECART/2):1F ECART<I THEN RETURN 
1620 IV=0 

1630 FOR K=1 TO NC-ECART 

1640 J=K+ECART 

1650 IF CLE$(J)>=CLE#$(K) THEN 1680 

1660 X$=CLE$(K):CLE$(K)=CLES$ (J):CLE$(J)=X$:IV=1 
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1670 X=INDEX(K):INDEX(K)=INDEX(J):INDEX(J)=X 
1680 NEXT K 

1690 IF IV=i THEN 1620 

1700 GOTO 1610 


740: =s=-sprssssssssssssessssssesissse 

1720 NE=2 " nombre etiquettes par ligne 
1730 IHRIZ=25 " intervalle horizontal 

1740 IVERT=6 " intervalle vertical 

1750 NLP=71 " nombre de lignes par page 
1760 MARGE=2 

1770 


1780 NRANG=INT (NLP)/IVERT 
1790 SP=NLP-NRANG#IVERT 

1800 ‘ 

1810 TRANG=0:PRINT 

1820 Mz=1 

1830 ‘ 

1840 IF M>NC THEN 1910 

1850 GOSUE 1940 

1860 M=M+NE 

1870 TRANG=TRANG+1 

1880 IF TRANG=NRANG THEN FOR K=1 TO SP:PRINT #C:NEXT K:TRANG=0 
1890 GOTO 1840 

1900 ‘ 

1910 PRINT:INPUT "APPUYER SUR ENTER": X$ 

1920 RETURN 

1930 ‘----- 

1940 FOR K=0 TO NE-1 

1950 PRINT #C, TAR(MARGE+K#IHRIZ) NOM# (INDEX (M+K)); 
1960 NEXT K 

1970 PRINT HC:PRINT #C 

1980 FOR K=0 TO NE-1 

1990 PRINT #C,TAB(MARGE+3+K#IHRIZ) RUES (INDEX (M+K) ); 
2000 NEXT K 

2010 PRINT #C 

2020 FOR K=0 TO NE-1 

2030 PRINT #C,TAB(MARGE+3+K#IHRIZ) CPST#(INDEX(M+K)) SPC(1) VI 
LLES$(INDEX(M+K)) ; 

2040 NEXT K 

2050 PRINT #C 

2060 FOR K=1 TO IVERT-4:PRINT #C:NEXT K 

2070 RETURN 
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GESTION DE FICHIER ADAPTABLE 


Le programme de gestion de fichier présenté est adaptable. Les noms des zones à 
saisir sont définis en début de programme. 


Prévu pour un fichier de stocks, ce fichier peut être adapté à un fichier d'adresses, par 
exemple. Les informations sont placées dans une table à deux dimensions FICHS$(,). 
Chaque ligne contient une fiche. Les modes création et modification sont communs. 


CODE LIBELLÉ PRIX STOCK TABLE 


CS Im] sm | 2 | nous 






Rang —> 2 
D CE AE M RTE 
CC MT ES EX 
à 
Mode ? C 


CODE (ENTER pour fin ) ? FAFIER 
Nouvelle cle OK (O/N) ? 0 


R:zone arriere 
Appuyer sur ENTER pour zone inchangee er mode MODIF 


LIBELLETPAPIER XXXXXX 


PRIX 72 

STOCK 7300 
Liste du fichier 
CODE LIBELLE PRIX STOCK VALEUR 
CRAYON CRAYON XXXXXXX 2 1000 2000 
GOMME GOMME XXXXXX 3 300 900 
DISQUE DISQUE XXXXXXXXXXXXXXX 30 15900 300600 
PAPIER PAPIER XXXXX 3 300 900 


Remarques sur le programme : 


Pour éviter que l'opérateur entre des codes en minuscules on pourra “normaliser” les 
codes par : 


420 CLE$=UPPER$(CLE#) 
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19 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
910 
520 
930 


“FICHIER STOCK (PROGRAMME ADAPTABLE A D'AUTRES FICHIERS) 
FICH$(,): table a 2 dimensions contenant les fiches 
NFICH: nombre de fiches 
NRUR#$(): noms des rubriques 


MODE 2:PAPER O:PEN 1:INK O,1:INK 1,24 


one er rer A ADAPTER 
NF$="STOCK" ‘ nom du fichier 
NRUB=4 ‘ nombre de rubriques 
NRUB$(1)="CODE" ‘ nom rubrique 1! 
NRUB$(2)="LIBELLE" " nom rubrique 2 
NRUB$(3)="PRIX" 

NRUB$(4)="STOCK" 

DIM FICH#$(200,NRUB) " 200 fiches maxi 
DIM CLE#$(200),INDEX(200) 

NFICH=0 ‘ nombre de fiches 
INPUT "Nouveau fichier (O/N) ";R#$ 

IF R$="0" OR R$="o" THEN 230 

GOSUR 770 

CLS:PRINT "Modes:":PRINT 

PRINT TAB(3) "C: creation/modification" 
PRINT TAB(3) "LF: liste du fichier" 

PRINT TARB(3) "S: suppression" 

PRINT TAH(3) "LTC: liste triee par code" 
PRINT TAB(3) "FIN: fin de session(sauvegarde)" 


PRINT:INPUT "Mode ":;M$ 
M$=UPPERS (M$) 
IF M$f="C" THEN GOSUR 380 


IF M$="FIN" THEN GOSUR 670:END 

IF M$="LF" THEN GOSUB 900 

IF M$="S" THEN GOSUR 1080 

IF M$="LTC" THEN GOSUE 1260 

GOTO 230 

‘zz=zzzzzzzz22z2=2=2=====2===22==2==2= (CREATION/MODIFICATION 
PRINT 


PRINT NRUB$(1); 
LINE INPUT " (ENTER pour fin ) ? ",CLE# 
IF LEN(CLE$)=0 THEN RETURN " fin de mode? 


LG=LEN(CLES#) 

IF NFICH=0O THEN 490 
FOR RANG=1 TO NFICH 

IF CLES$=LEFT$(FICHS$(RANG,1),LG) THEN 550 ‘ nom existe? 
NEXT RANG 

RSR RSresr-sse nouvelle cle 
PRINT:INPUT "Nouvelle cle OK (O/N) ";R+# 
IF R$<>"0" AND R$<>"o" THEN 380 
NFICH=NFICH+1I 
RANG=NFICH 

FICH$(RANG,1)=CLE$# 


540 
550 
560 
970 
RINT 
580 
590 
800 
610 
620 
630 
640 
650 
66û 
670 
6880 
890 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
19010 
1020 
1930 
1040 
1050 
1960 
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RSR TS Reese Sr SsSr ss entree/modif zones 

PRINT 

PRINT "R:zone arriere" 

PRINT "Appuyer sur ENTER pour zone inchangee en mode MODIF":P 


FOR R=2 TO NRUR 

PRINT FICH#$(RANG,R) TAR(25) " ancienne valeur 
PRINT NRUB#(R) TAB(32) " nom de zone 
LINE INPUT "?",X# 

IF X$="R" THEN IF R>1 THEN R=R-1:G60T0 590 

IF LEN(X#$)<>0 THEN FICH$(RANG,R)=X$ 

NEXT R 
GOTO 5380 

fSSSSSSSSSSSSSSSSESESSTSSISSISSSSSESE==S===S==-=S sauvegarde 
OPENOUT NF# 
PRINT #9,NFICH 

FOR F=1 TO NFICH 

FOR R=1 TO NRUR 

PRINT #9,FICH$(F,R) 

NEXT R 
NEXT F 
CLOSEQUT 


2==2z2=============================2=== lecture fichier 
OFENIN NF# 


INPUT #9,NFICH 
FOR F=1 TO NFICH 
FOR R=1i TO NRUR 
LINE INPUT #9,FICH#(F,R) 
NEXT R 
NEXT F 
CLOSEIN 
PRINT:PRINT nfich:"FICHES" 
FOR TP=1 TO 2000:NEXT TP 
RETURN 
‘zssss2=22222222=2222=2==222=== ]jste du fichier 
CLS 
INPUT "Ecran ou imprimante (E/1) ";R$ 
CN=O:IF R$="I" THEN CN=8 
PRINT #CN,"Liste du fichier":PRINT #CN 


PRINT #CN,NRUB$(1) TAR(10) NRUR#(2) TAB(35) NRUR$(3) TAR(45) 
PRINT #CN,NRUB$(4) TAB(52) “VALEUR":PRINT #CN 
FOR F=i TO NFICH 

IF CN=Q THEN IF F MOD 20=0 THEN INPUT "Appuyer sur ENTER";Xx$ 


PRINT #CN,FICH$#(F,1) TAB(10) " zone 1 (code) 
PRINT #CN,FICH$(F,2) TAB(35) ‘ zone 2 (libelle) 
PRINT #CN,FICH#(F,3) TAB(45) ‘ zone 3 (prix) 


PRINT #CN,FICH#(F,4) TAR(52) 

FRINT #CN,VAL(FICH$#(F,3))#VAL(FICH#$(F,4)) 
NEXT F 
PRINT:IF CN=0 THEN INPUT "Appuyer sur <ENTER ";x$ 
RETURN 
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Pour supprimer des fiches, ajoutez les instructions suivantes : 


1970 ‘===========-=-==-----=--==2===-==-=----- SUPPRESSION FICHE 
1089 PRINT :PRINT NRUB$(1);:INPUT CLE# 

1990 IF LEN(CLE$)=0 THEN RETURN 

1100 FOR RANG=1 TO NFICH 

1110 IF CLE$=FICH$(RANG,1) THEN 1150 

1120 NEXT RANG 

1130 PRINT:PRINT "N'existe pas":60T0 1080 


1150 PRINT:INPUT "ANNULE OK(O/N) ":;R$:IF R$<>"0" THEN 1080 
1160 FOR J=RANG TO NFICH-1 

1170 FOR R=1 TO NRUR 

1180  FICH$(J,R)=FICH$(J+1,R) 

1190 NEXTR 

1209 NEXT J 

1210 FOR R=1 TO NRUB:FICH$(NFICH,R)="":NEXT R 

1220 NFICH=NFICH-1 

12:30 GOTO 1080 

1240 ‘---Attention' Il n'y a pas d'espace entre "" 

Une liste triée s'obtient suivant le principe présenté pour le programme “fichier 
d'adresses”. 


1250 ‘================2====2222=2= SELECTION/TRI PAR CODE 
1260 PTRI=iI " position de tri (CODE) 
1279 INPUT "Quelle cle (ENTER pour toutes )} "3;CLE$ 
1280 NC=0 " nc: nombre de cles 


1290 LG=LEN(CLES$) 
1300 FOR F=1 TO NFICH 
1310 IF LEN(CLE#)<>0 
THEN IF LEFT$(FICH$(F,PTRI),LG)<>CLE# THEN 1330 
1320 NC=NC+1:CLES$(NC)=FICH$(F,PTRI): INDEX (NC) =F 
1330 NEXT F 


1340 GOSUR 1440 " appel tri 
13550 PRINT:PRINT "LISTE TRIEE DES FICHES ":PRINT 
1360 ‘------- EDITION 


1370 FOR F=1 TO NC 

1580 X=INDEX(F) 

1390 PRINT FICH$(X,1) TAR(10) FICH#(X,2) TAB(40) FICH#(X,3) 
1400 NEXT F 

1410 PRINT:INPUT "APPUYER SUR ENTER ":;Xx$ 

1420 RETURN 

AOÛT MERE SE SES esse SSSR tri SHELL-METZNER 
1440 ECART=NC 

1450 PRINT:PRINT "JE TRIE POUR VOUS ":PRINT 
1460 ECART=INT(ECART/2):IF ECART<I THEN RETURN 
147G J=i :K=NC-ECART 

1480 L=J 

1490 M=L+ECART 

1500 IF CLE$(L)<=CLES$(M) THEN 1560 

1510 X$=CLE#(L):CLES$(L)=CLE#$(M):CLES$(M)=X$ 
1520 X=INDEX(L):INDEX(L)=INDEX(M):INDEX (M)=X 
1550 L=L-ECART:IF Lé1 THEN 1560 

1540 GOTO 1490 

1550 ‘ 

1560 J=J+1:IF J>kK THEN 1460 

1570 GOTO 1489 
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CONVERSION MINUSCULES - MAJUSCULES 


Le programme ci-dessous convertit tous les caractères d'un texte en majuscules. Le 
fichier texte est d'abord lu dans une table LIGS$(). Si le fichier texte est un programme, 
celui-ci doit avoir été sauvegardé en ASCCI par “SAVE “XX”,A”. 


10 ‘ CONVERSION MINUSCULE ---} MAJUSCULE 

29 ” 

30 MODE 2:PAPER O:PEN 1! 

40 DIM LIG$(1000) 

50 INPUT "Nom fichier ":NF$ 

60 DFENIN NF# 

JUPES SREESSS LECTURE FICHIER DANS TABLE LIG#() 
80 FOR L=1 TO 1600 

90 IF EOF=-1 THEN CLOSEIN:NL=L-1:60T0 150 

100 LINE INPUT #9,LIG#(L) 

110 PRINT LIG#(L) 

120 NEXT L 

130 STOP 

140 ‘---------- CONVERSION 

150 FOR L=i TO NL 

160 LIG$(L)=UFFERS$(LIG#(L)) 

170 PRINT LIG#(L) 

180 NEXT L 

190 Sessrssesesee ECRITURE FICHIER 

200 OFENOUT NF# 

210 FOR L=1 TO NL 

220 PRINT #9,LIG#(L) 

230 NEXT L 

240 CLOSEOUT 

290 'essrSssre-rssess 

260 ‘ SUR CFCÉ64,ON PEUT QUVRIR UN FICHIER EN LECTURE 
270 ‘ ET UN AUTRE EN ECRITURE SIMULTANEMENT(AVEC DES NOMS 
280 ‘ DIFFERENTS),. 


CHANGEMENT D'UN MOT 
DANS UN FICHIER SEQUENTIEL 


Pour changer un mot dans un fichier séquentiel nous utilisons l'instruction INSTR qui 
nous donne la position du mot dans chaque ligne. 


Ce programme peut servir à changer des noms de variables d'un programme sauve- 
gardé par “SAVE “XX”,A”. 


19 CHANGEMENT D'UN MOT DANS UN FICHIER SEQUENTIEL 
29 ‘ 

30 MODE 2:PFAPER O:PEN 

40 DIM TXT#(1000) 

50 ‘ 

60 INPUT "NOM DU FICHIER ";NF# 

70 OPENIN NF# 

80 INPUT "ANCIEN MOT ":AM# 
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90 INPUT "NOUVEAU MOT ";NM$ 

OO FESSES res es-s LECTURE FICHIER DANS TABLE TXT#{() 
110 FOR I=1 TD 1000 

120 IF EOF THEN NL=I-1:CLOSEIN:GOTO 179 

130 LINE INPUT #9,TXT$#(1) 

140 PRINT TXT$#(I) 

150 NEXT I 

O0 == RSS SES SSSR ss 

170 FOR I=1 TO NL 

189 DR=i ‘ debut recherche dans la ligne 

190 ‘ 

200 P=INSTR(DR,TXT£(I),AM#) ‘ recherche position ancien mot 
210 IF P=0 THEN 240 

220 TXT$(I)=LEFT$(TXT$S(I) ,F-1)+NM$#+RIGHTS$(TXT$(I) ,LEN(TXT#(I))- 
P-LEN(AM$)+1) 

230 DR=P+LEN(NM$)+1:GO0OT0 200 

240 NEXT I 

290 “=== ses ECRITURE FICHIER 

260 OPENOUT NF$+"B" 

270 FOR I=1 TO NL 

280 PRINT #9,TXT#(I) 

290 PRINT TXT#(I) 

300 NEXT I 

310 PRINT:PRINT "NOUVEAU FICHIER: ";NF#$+"B" 

320 CLOSEOUT 

350 

340 ‘Attention! pour un programme,faire ‘SAVE "XX",A° 


NOM DU FICHIER ? X 
ANCIEN MOT ? LIGNE 

NOUVEAU MOT ? LG 

10 ‘---". COPIE ECRAN(TEXTE) 

20 FOR LIGNE=1 TO 24 

30 FOR COL=1 TO 80 

40  LOCATE COL,LIGNE:C$#=COPYCHRS (#0) 
50 PRINT #8,C$; 

60 NEXT COL 

70 PRINT #8 

80 NEXT LIGNE 

10 ‘-------- COPIE ECRAN(TEXTE) 

20 FOR LG=1 TO 24 

30 FOR COL=1 TO 80 

40  LOCATE COL,LG:C$=COPYCHRS (#0) 

50 PRINT #8,C$; 

60 NEXT COL 

70 PRINT #8 

80 NEXT LG 


NOUVEAU FICHIER:XB 
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COMPOSITION DE TEXTES 


Ce programme “superpose” un texte sur un autre. Dans l'exemple ci-dessous nous 
avons écrit un texte standard en laissant un emplacement pour un autre texte issu, soit 
d'un traitement de texte, soit de l'exécution d’un programme. 


0x Texte de base xxx 


Veuilez trouver ci joint les statistiques mensuelles 
de ventes des ouvrages du PSI. 





J.L VEROHYE 
NOM DU FICHIER À SUPERPOSER ? stv 


LIGNE ? 4 
COLONNE ? 15 


VENTES DE JANVIER 1985 
BSF : 999 
AMSTRDAD : 1001 
APPLE : 997 


Veuilez trouver ci joint les statistiques mensuelle 
de ventes des ouvrages du PSI. 


VENTES DE JANVIER 1985 


BSF : 999 
AMSTRDAD : 1001 
APPLE 
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10 
20 
30 
40 
50 


70 
80 


COMPOSITION DE TEXTES 


‘ Le texte de base et le texte a ajouter doivent exister. 


MODE 2:PAPER O:PEN 1! 
69 INFUT "NOM DU FICHIER DE BASE'";L# 


Free eee Lecture texte de base dans table LIG#() 


90 OPENIN L$ 


190 
110 
120 
130 
149 
159 
160 
170 
180 
190 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
3900 
310 
3290 
330 
340 
350 


DIM LIG$(100) 


FOR L=i TO 109 
IF EOF THEN NL=L-1:GOT0 1890 
LINE INPUT #9,LIG#(L) 
PRINT LIG${(L) 
LIG$(L)=LEFTS$(LIG$(L)+STRING$(7B,CHR#(12)),78) 
NEXT L 
CLOSEIN 
INPUT "NOM DU FICHIER À SUPERPOSER ";TS# 
INPUT "LIGNE ";LIGNE 
INPUT "COLONNE "; COL 
OPENIN TS$ 
LINE INPUT #9,L16$ 


PRINT LIG$ 

IF EOF THEN CLOSEIN:GOTO 335 
MID$(LIG$(LIGNE) ,COL,LEN(LIG$))=LIG6# 
LIGNE=LIGNE+1 

GOTO 260 

Pr M Ti Edition 

FOR L=1i TO NL 

PRINT LIG$({L) 

NEXT L 
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BIBLIOTHÈQUE 


Les titres, auteurs et emplacement des ouvrages sont stockés dans des tables : 
TIT$(),AUT$(),ETAGS$(). La recherche par titre, auteur ou emplacement se fait à l’aide 
de la fonction INSTR. 


Ce programme est adaptable à plusieurs types d'applications : 


oO Recherche de synonymes. 
0 Dictionnaire français/anglais. 


TITS() AUTS() ETAGS() 


PROGRAMMER EN ASSEMBLEUR PINAUD 
LA PRATIQUE DE L'APPLE 


POULIQUEN 


© © — 





LISTE DU FICHIER 


1 BASIC ET SES FICHIERS DUPONT ETAG=A 
2 PROGRAMMER EN ASSEMBELEUR FINAUD ETAG=E 
3 LA PRATIQUE DE L'APPLE POULIQUEN ETAG=A 
4 CLEFS POUR APFLE FOULIGUEN ETAG=B 
9 LA PRATIQUE DU TR58Q FINAUD ETAG=R 
6 BASIC DE A A Z MARTIN ETAG=A 
7 AMSTRAD FOUR TOUS DUFONT ETAG=A 
MOT CLE ? AFFLE 

LA PRATIQUE DE L'APPLE POULIQUEN ETAG=A 
CLEFS FOUR APPLE FOULIQUEN ETAG=E 

MOT CLE 7? ETAG=A 

BASIC ET SES FICHIERS DUPONT ETAG=A 

LA PRATIQUE DE L'AFFLE POULIQUEN ETAS=A 

BASIC DE À A Z MARTIN ETAG=A 
AMSTRAD POUR TOUS DUFONT ETAG=A 

MOT CLE ? POUL 

LA PRATIQUE DE L'APPLE POULIQUEN ETAG=A 

CLEFS POUR AFPLE POULIQUEN ETAG=R 


Remarques sur le programme : 


Même si l'opérateur entre le titre en minuscules celui-ci est stocké dans le fichier en 
majuscules (par UPPER$). Pour les recherches, l'opérateur peut frapper les mots-clés 
en majuscules ou minuscules. 
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19 ‘ BIBLIOTHEQUE 

20 

30 MODE 2 

40 INK Q,26:INK 1,0:PAPER O:PEN 1 

90 NF$="BIBE" " nom fichier 


60 DIM TIT$(200),AUT$(200) ,ETAG$(200) 
70 DIM CLE$(200),INDEX(200) 

89 NF=0 " nombre de fiches 
90 INPUT "NOUVEAU FICHIER (O/N) ";R$ 
100 IF R$<>"0" AND R$f<>"o" THEN GOSUB 670 
110 

120 CLS 

130 PRINT "MODES:":PRINT 

140 PRINT "C : CREATION" 

150 PRINT "R : RECHERCHE" 

160 PRINT "L :LISTE DU FICHIER" 

170 PRINT "S : SUPPRESSION" 

180 PRINT "M : MODIFICATION" 

190 PRINT "LTA :LISTE TRIEE PAR AUTEUR" 
200 PRINT "FIN : SAUVEGARDE FICHIER" 

210 

220 PRINT:INPUT "MODE ":M$ 

230 M$=UPPERS$ (M$) 

240 IF M$="C" THEN GOSUR 330 

250 IF M$f="R" THEN GOSUB 490 

260 IF M#$="L" THEN GOSUR 590 

270 IF M$="S" THEN GOSUB 900 

280 IF M$="LTA" THEN GOSUR 1250 

290 IF M$f="M" THEN GOSUR 1090 

300 IF M$="FIN" THEN GOSUR 800:END 

310 GOTO 120 


320 Tzzzzzzz=z=zz=szs===z===2==222=====22===2===2=22= CREATION 
330 PRINT:INPUT "TITRE (ou ENTER) "3;TITS$ 

340 IF LEN(TIT#$)=0 THEN RETURN " fin de mode? 

350 TIT$=UPPER$(TIT#):L=LEN(TITS$) " titre majuscules 
360 FOR F=1 TO NF " titre existe t-i17? 


370 IF TIT$=LEFT$(TIT$(F),L) THEN PRINT TIT$(F):G60T0 330 
380 NEXT F 

390 NF=NF+1 

400 ‘------ 

410 PRINT 

420 INPUT "AUTEUR ";AUT# 

430 INPUT "ETAGERE ";ETAGS$ 

440 TIT#(F)=TITS$ 

450 AUT#(F)=AUT# 

460 ETAG$(F)="ETAG="+ETAG# 

470 GOTO 33 

480 ‘=============22==========2z============2= RECHERCHE 
490 PRINT: INPUT "Mot cle (ou ENTER) ";MC$ 

900 IF LEN(MC$)=0 THEN RETURN 

910 PRINT 

920 FOR F=1 TO NF 

930 LIG$=UPFER$S(TIT$(F)+AUT$(F)+ETAG#(F)) 

540 IF INSTR(LIGS$,UPPER$(MC$))=0 THEN 560 

990 PRINT TIT$(F) TAR(3O) AUT$(F) TAB(45) ETAGS$(F) 
960 NEXT F 

570 GOTO 490 


990 
600 
610 
620 
630 
640 
650 
660 
b70 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1910 
1020 
1050 
1040 
1050 
1960 
1970 


‘szzzzzzzzz==zz=2=22===2====22==2 | [STE DU FICHIER 
PRINT:PRINT "LISTE DU FICHIER":PRINT 
FOR F=1i TO NF 

PRINT F:;TIT$#(F) TAR(30) AUT$(F) TAB(45) ETAG$(F) 
IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER"; X$ 
NEXT F 
PRINT:INPUT "APPUYER SUR ENTER ":;Xx$ 


=s=zz2==222=222222= [ECTURE FICHIER DANS TABLES 
OPENIN NF$ 
INPUT #9,NF 
FOR F=1 TO NF 

INPUT #9,TIT$#(F) 

INPUT #9,AUT#(F) 

INPUT #9,ETAG#(F) 

PRINT TIT$#(F) 
NEXT F 
CLOSEIN 
PRINT NF;"FICHES":PRINT 
FOR TP=1 TO 1000:NEXT TP 


======22222222252= SAUVEGARDE TABLES DANS FICHIER 
OPENOUT NF# 
PRINT #9,NF 

FOR F=1 TO NF 

PRINT #9,TIT#(F) 

PRINT #9,AUT$(F) 

PRINT #9,ETAG$(F) 

NEXT F 
CLOSEOUT 

RETURN 


zzzzzzzzzszz=2=2===2=2===========e======== SIPFRESSION 
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PRINT:INPUT "TITRE (premieres lettres ou ENTER) ";TITS$ 


IF LEN(TIT$)=0 THEN RETURN 
TIT$=UPPER$(TIT$):L=LEN(TIT#) 
FOR F=1 TO NF 

IF TIT$=LEFTS$(UPPER$(TIT#(F)),L) THEN GOTO 980 
NEXT F 
PRINT:PRINT "N'EXISTE PAS":PRINT:GOTO 900 


PRINT:PRINT TIT$(F)3:INPUT " OK (O/N) "3;R# 
IF UPPER$(R#)€}"O0O" THEN 900 
FOR J=F TO NF-1 

TIT#(J)=TIT$(J+1) 

AUT$(J)=AUT$(J+1) 


ETAG$(J)=ETAG$(J+1) 
NEXT J 
TIT$(NF)="": AUTS (NF) ="":ETAGS(NF)="" 
NF=NF-1 


GOTO 900 
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Pour modifier une fiche ajouter : 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1519 
1520 
1530 


================2===27=222252==2=== MODIFICATION 
PRINT:INPUT "TITRE (premieres lettres ou ENTER) ";TIT$ 
IF LEN(TIT$#)=0 THEN RETURN " fin de mode? 
TIT$=UPPERS$S (TIT#):L=LENC(TIT#) 
FOR F=1 TO NF ‘ titre existe t-il? 

IF TIT$=LEFT#(UPPER$(TIT$(F)),L) THEN 1170 
NEXT F 


PRINT:PRINT "N'EXISTE PAS'":PRINT:GOTO 1090 

PRINT:PRINT TIT$(F):PRINT 

PRINT AUT$(F) TAB(20) ‘ ancienne valeur 

INPUT "AUTEUR "3 X$:1F LEN(X#)<>0 THEN AUT#(F)=X$ 

PRINT ETAG$(F) TAB(20) 

INPUT "ETAGERE ";X#:IF LEN(X$)<>;0 THEN ETAG$(F)="ETAG="+X$ 


GOTO 1090 


lassssssss=s========7-=57--= SELECTION/TRI PAR AUTEUR 
INPUT "Quelle AUTEUR (ENTER pour tous) ";A$ 

NC=0 " nombre de cles 
L=LEN(A#$) 

FOR F=1 TO NF 

IF UPPERS$(AS$)<>UPPER$(LEFT$(AUT$(F) ,L)) THEN 1310 
NC=NC+1:CLE#(NC)=AUT#(F): INDEX (NC) =F 

NEXT F 


GOSUR 1430 " appel tri 
Ve edition 
PRINT:PRINT "LISTE TRIEE PAR AUTEUR'":PRINT 
FOR F=1 TO NC 
X=INDEX(F) 
PRINT AUT#(X) TAB(15) TIT#(X) 
NEXT F 
PRINT:INPUT "APPUYER SUR ENTER":xX#$ 
RETURN 
NÉE SE SES SES SE SES SE See tri shell 
ECART=NC 
ECART=INT(ECART/2):IF ECART£1 THEN RETURN 
IV=0 
FOR K=1 TO NC-ECART 
J=K+ECART 
IF CLE$(J)>=CLE$(K) THEN 1510 
X$=CLES(K):CLE#$(K)=CLES$(J):CLES$(J)=X#: IV=1 
X=INDEX(K): INDEX(K)=INDEX(J):INDEX(J)=X 
NEXT K 
IF IV=1 THEN 1450 
GOTO 1445 
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DICTIONNAIRE DES SYNONYMES 


Nous reprenons le principe du programme “bibliothèque” pour gérer un dictionnaire des 
synonymes. |! suffit de placer dans chaque enregistrement la liste des synonymes d'un 
mot. 


MODE 7 L 
LISTE DU FICHIER 


AVOUER RECONNAITRE APPROUVER RATIFIER 

DELAI REPIT SURSIS PROLONGATION 

FAIRE CONSTRUIRE FABRIQUER CONFECTIONNER 
FAIBLESSE ABATTEMENT AFFAIBLISSEMENT DEFAILLANCE 
MORDRE CROQUER DECHIQUETTER 

PERSISTER S'OBSTINER FERSEVERER 

PERFETUEL ETERNEL INCESSANT IFINI 


NGNMBANRE 


MODE ? KR 

MOT CLE ? SURSIS 

DELAI REPIT SURSIS PROLONGATION 

MOT CLE ? APPROUVER 

AVOUER RECONNAITRE APPROUVER RATIFIER 
10 | DICTIONNAIRE DE SYNONYMES 


20 
30 MODE 2:INK 0,26:INK 1,0:PAPER O:PEN 1 


40 NF#="SYNO" " nom fichier 
90 DIM LIG6#(200) 
60 NF=0 " nombre de fiches 


70 INPUT "NOUVEAU FICHIER (O/N) ";R$ 

8Q IF R$<>"0" AND R$<)>"o" THEN GOSUR 470 
90 

190 CLS:PRINT "MODES: ":PRINT 

110 PRINT "C : CREATION" 

120 PRINT "R : RECHERCHE" 

130 PRINT "L :LISTE DU FICHIER" 

140 PRINT "FIN :SAUVEGARDE FICHIER" 

150 ” 

169 PRINT:INPUT "MODE ":;:M$ 

170 M$=UPPERS$ (M$) 

180 IF M$="C" THEN GOSUR 240 

190 IF M$="R" THEN GOSUB 300 

200 IF M$="L" THEN GOSUR 390 

210 IF M$="FIN" THEN GOSUB 570:END 

220 GOTO 100 

230 ‘========2=2===2==2-==2=2=-=-2==--=--32-=--==--=---- CREATION 
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240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
359 
360 
370 
3890 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
910 
929 
530 
340 
990 
960 
570 
580 
590 
6900 
610 


PRINT: INPUT "LISTE DES SYNOMYMES (ou ENTER) ":;LIG$ 


IF LEN(LIG$)=0 THEN RETURN © fin de mode? 
NF=NF+1 

LIG$(NF)=LIGS " ou LIG$(NF)=UPPERS$(LIG$#) 
GOTO 240 

2sz=zzzzzz=222=================2===22==2=2= RECHERCHE 


PRINT:INPUT "MOT CLE (ou ENTER) ":;MC$ 

IF LEN(MC$)=0 THEN RETURN 

PRINT 

FOR F=1i TO NF 
IF INSTR(UPPERS#(LIG$(F)) ,UPPER$(MC+))=0 THEN 360 
PRINT LIG#(F) 

NEXT F 


zzzzz2zzszz2========2==2====2=2===22=2== | [STE DU FICHIER 
PRINT:PRINT "LISTE DU FICHIER":PRINT 
FOR F=1 TO NF 

PRINT F;LIG#(F) 

IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER":X$ 
NEXT F 
PRINT:INPUT "APPUYER SUR ENTER ":X$ 


==22222222z LECTURE FICHIER DANS TABLE LIG#() 
OPENIN NF$ 

INPUT #9,NF 

FOR F=1 TO NF 

LINE INPUT #9,LIG$(F):PRINT LIG$(F) 

NEXT F 

CLOSEIN 

PRINT NF;"FICHES":PRINT 

FOR TP=1 TO 1000:NEXT TP 


zzz=2222========2==2=====2=== GALUVEGARDE FICHIER 
OPENOUT NF$ 
PRINT #9,NF 
FOR F=1 TO NF:PRINT #9,LIG$#(F):NEXT F 
CLOSEOUT 
RETURN 


FICHIERS | 75 
GESTION DE REPAS 


Avec le programme précédent vous pouvez stocker les menus des repas servis à vos 
invités. Ainsi, pour une prochaine invitation, vous pourrez connaître tous les menus des 
repas déjà servis à vos invités. 


MODE ? L 
LISTE DU FICHIER 


1 10 JUILLET 1985 /MENU=CAROTTES STEAK SALADE /INVITE=DUPONT 

2 1i JUILLET 1985 /MENU=QUICHE STEAK YAOURT /INVITE=MARTIN 

3 12 JUILLET 1985 /MENU=THON COTE DE PORC RIZ AU LAIT/INVITE=DUPONT 
4 14 JUILLET 1985 /MENU=CREFES CREPES CREFES /INVITE=VEROHYE 

5 16 JUILLET 1985 /MENU=CAROTTES GRATIN DAUPHINOIS RIZ AU LAIT 
JINVITE=DUPONT 


MODE ? R 
MOT CLE 7? INVITE=DUPONT 


10 JUILLET 1985 /MENU=CAROTTES STEAK SALADE /INVITE=DUPONT 

12 JUILLET 1985 /MENU=THON COTE DE PORC RIZ AU LAIT/INVITE=DUPONT 
16 JUILLET 1985 /MENU=CAROTTES GRATIN DAUPHINOIS RIZ AU LAIT 
/INVITE=DUPONT 


MOT CLE ? RIZ AU LAIT 


12 JUILLET 1985 /MENU=THON COTE DE PORC RIZ AU LAIT/INVITE=DUPONT 


16 JUILLET 1985 /MENU=CAROTTES GRATIN DAUFHINOIS RIZ AU LAIT 
JINVITE=DUPONT 


GESTION DE CHÈQUES 





Des chèques sont stockés dans des tables. Nous éditons la liste des chèques pour la 
période choisie ainsi que le solde. Les dates doivent être entrées sous la forme “année/ 
mois/jour” afin de permettre la sélection entre deux dates. Nous avons également prévu 
une ventilation par catégorie de dépenses. 


NCHEQS$() LIB$() CT$() DTS$() MT() 

1111 PSI xx PSI 85/07/01 100000 

2222 200000% LOYER 85/07/02 —2500 
Rang — |3333 200000% ALIM 85/07/04 —1500 


Mode ? C 
Numero cheque (ENTER pour fin) 7? 9999 


Date (AA/MM/JJ) ? 85/07/21 

Libelle ? REMISE DE CHEQUES 
0 Montant ? 1300 

Categorie ? PSI 
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Date 


debut (AA/MM/JJ) (ou ENTER) ? 


Date fin (AA/MM/JJ) (ou ENTER) 7? 


No ch 


1111 
2222 
3333 
4444 
5555 
7777 
8888 
9999 
CCCC 


eque Libelle 

PSI PSI 
XXXXXXX LOYER 
XXXXX ALIM 
XXXXX LOIS 
XXXXX PSI 
XXXXXXX DIV 
XXXXXX LOIS 
XXXXX ALIM 
XXXXXX PSI 


ANCIEN SOLDE: 0 


SOLDE: 243550 
Mode ? LC 

PSI 150000 
LOYER -1000 
ALIM -3200 
LOIS -2600 


DIV 


350 


85/07/01 
85/07/02 
85/07/08 
85/07/10 
85/07/12 
85/07/16 
85/07/20 
85/07/22 
85/08/15 


Credit 


100000,.00 


50090.00 


100000.00 


250000.00 


Debit 


1000. 
-1500. 


-350. 
1100. 


500.0 


6450, 


00 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 


FICHIERS | 77 


GESTION DE CHEGUES 


MODE 2:INK O,0:INK 1,26:PAPER O:PEN 1 


NCH=0 " nombre de cheques 


DIM NCHEO$ (200) ,DT#(200) ,LIR$(200) ,MT (200) ,CT$(200) 
o DIM C#(20),MC(20) 


INPUT "Nouveau fichier (O/N) ";R#$ 
IF Rt<>"O" AND R$<>"o" THEN GOSUR 900 
'sszssss==22s2222=22s2==222== MENU 
CLS:PRINT "MODES:":PRINT 
PRINT TAB(3) "C :CREATION/MODIFICATION CHEQUE" 
PRINT TAB(3) "L  :LISTE DES CHEQUES" 
FRINT TAB(3) "S : SUPPRESSION CHEQUE" 
PRINT TAB(3) "LC :MONTANT PAR CATEGORIE" 
PRINT TAB(3) "FIN:SAUVEGARDE FICHIER" 


PRINT: INPUT "Mode ";M$ 
M$=UPPERS (M$) 

IF M$="C" THEN GOSUR 270 

IF M$="L" THEN GOSUB 510 

IF M$f="S" THEN GOSUB 1000 

IF M$="LC" THEN GOSUR 1180 

IF M$="FIN" THEN GOSUR 780:END 


===ss==sss=sssse CREATION/MODIFICATION 


PRINT: INPUT "Numero cheque (ENTER pour fin) ";X$ 
IF LEN(X$)=0 THEN RETURN ‘ fin de mode? 
FOR RANG=1 TO NCH " cheque existe t-117 
IF UPPER$(X$)=UPPER$ (NCHER$ (RANG)) THEN 360 
NEXT RANG 
NCH=ENCH+1 
RANG=NCH 
NCHEC$ (NCH)=X$ 
PRINT 
PRINT DT$#(RANG) TAR(20) " ancienne valeur 


INPUT "Date (AA/MM/JJ) ";Xx$ 

IF LEN(X$)€)>0 THEN DT$(RANG)=X$ 
PRINT LIB#(RANG) TAB(20) 

INPUT "Libelle ":X$ 

IF LEN(X#)€>0 THEN LIR$(RANG)=X$ 
PRINT MT(RANG) TAR(20) 

INPUT "Montant ";X 

IF X20 THEN MT(RANG)=X 

PRINT CT$(RANG) TAB(20) 

INPUT "Categorie ":X$ 

IF LEN(X#$)<>0 THEN CT$(RANG)=X$ 
GOTO 270 
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500 
510 
520 
930 
540 


‘zzssz==2=2==22=2=22===2z==2= | JSTE DES CHEQUES 
PRINT 

INPUT "Date debut (AA/MM/JJ) (ou ENTER) ";DB$ 
INPUT "Date fin (AA/MM/JJ) (ou ENTER) “;DF$ 
ASOLDE=0:DERIT=0:CREDIT=0 


990 PRINT 

969 PRINT "No cheque" TARB(11) "Libelle" TAB(52) "Credit" TAB(64) 
"Debit" 

570 PRINT 

580 FOR F=1 TO NCH 


590 
600 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
859 
840 
850 
860 
870 
B80 
890 
900 
910 
920 
950 
940 
9750 
960 
970 
980 


IF LEN(DB#)<)0 AND LEN(DF#)<>0 AND DT$#(F)<DB$ 
THEN ASOLDE=ASOLDE+MT(F) 
IF LEN(DB$)<)0 AND LEN(DF$)<>0 AND 
(DT$(F)<DB$ OR DT$(F)>DF$) THEN 690 
PRINT NCHEGS$(F) TAB(11) LIB$(F) TAB(34) CT$(F) TAB(40) 
PRINT DT$(F) TAB(50) 
IF MT(F)>0 THEN PRINT TAB(50) USING "#H#####.##":MT(F) 
IF MT(F)<O THEN PRINT TAB(62) USING "###H###.##" 5: MT(F) 
IF F MOD 15=0 THEN INPUT "Appuyer sur ENTER";X$ 
IF MT(F)>0 THEN CREDIT=CREDIT#MT(F) 
IF MT(F)<O THEN DEBIT=DEBIT+MT(F) 
NEXT F 
PRINT 
PRINT TAB(50) USING "####4#4. #4 ": CREDIT; 


PRINT TAB(62) USING "######.## ": DEBIT 
PRINT:PRINT "ANCIEN SOLDE:";ASOLDE 
PRINT:PRINT "SOLDE:";CREDIT+DEBIT+ASOLDE 
PRINT:INPUT "Appuyer sur ENTER" :X$ 
RETURN 

ssszz===222===2=2=====222==2222= GAUVEGARDE 
OPENOUT "CHEG" 
PRINT #9,NCH 

FOR F=1 TO NCH 

PRINT #9,NCHEG#(F) 

PRINT #9,DT#(F) 

PRINT #9,LIR$(F) 

PRINT #9,MT(F) 

PRINT #9,CT#(F) 

NEXT F 
CLOSEOUT 


=zz===2=2==2==2==============2= LECIURE FICHIER 
OPENIN "CHEG" 

INPUT #9,NCH 
FOR F=1 TO NCH 

INPUT #9,NCHEQ#(F) ,DT$(F) ,LIRBS$(F),MT(F) ,CT#(F) 
NEXT F 
CLOSEIN 
PRINT:PRINT NCH;'"CHEQUES":PRINT 

FOR TP=1 TO 2000:NEXT TP 
RETURN 


1000 
1010 
1020 
1030 
1940 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1510 
1320 
1350 
1340 
1350 
1360 


‘zzzzzs=zss2=s==2s222=22222=2=2===2== G(PPRESSION 


INPUT "Numero de cheque(ENTER pour fin) ";x$ 
IF LEN(X$)=0 THEN RETURN 
FOR F=1 TO NCH ” recherche cheque 

IF UPPER$(X$) =UPPER$ (NCHEG$(F)) THEN 1070 
NEXT F 
PRINT:PRINT "N'existe pas ":PRINT:GO0OTO 1000 


FOR J=F TO NCH-i 

NCHEG$(J)=NCHEG$(J+1) 

LIB$(J)=LIB$(J+1) 

DT$(J)=DT#(J+1) 

MT(J)=MT(J+1) 

CT$(J)=CT$(J+1) 
NEXT J 
NCHEGQ$ (NCH)="":LIRS$(NCH)="":DT$ (NCH)="": MT (NCH) =0 
NCH=NCH-1 


GOTO 1000 

‘ss=sss=z2=2e=2=2== VENTILATION PAR CATEGORIES 
PRINT 

NC=0 " nombre categories 


FOR I=1 TO 20:C#$(J)="":MC(J)=O0O:NEXT I 
FOR J=1 TO NCH 
FOR K=1 TO NC 
IF CT$(J)=C$(K) THEN 1290 ‘ categorie existe? 
NEXT K 
NC=NC+1 
C$#(NC)=CT#(J) 
K=NC 


MC(K)=MC(K)+MT(J) " cumul 
NEXT J 


FOR J=i TO NC 
PRINT C#(J) TAB(10) MC(J) 
NEXT J 
PRINT:INPUT "APPUYER SUR ENTER ";Xf 
RETURN 
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COURRIER PARAMÉTRÉ 


A l’aide d’une lettre standard nous éditons des lettres personnalisées. 


La saisie de la lettre peut se faire à l'aide d’un éditeur de texte. Nous proposons un 
programme simple qui saisit la lettre ligne par ligne et la sauvegarde dans un fichier 
séquentiel. 


Les mots paramétrés sont spécifiés entre <> à l'aide de noms symboliques 
(NOM,RUE, VILLE sur l'exemple). Ils sont remplacés par les mots réels à l’aide du 
programme d'édition de la lettre. 


Une table PRM$() contient les noms des paramètres et une table T$() les valeurs réelles 
des paramètres. 





NOM DUPONT 
RUE 13, rue de MILAN 
VILLE PARIS 
PRMS() T$() 
10 * S6L SAISIE LETTRE 
29 
30 MODE 2 
40 
90 OPENOUT "LETTRE" 
60 


79 PRINT "+ pour fin":PRINT 

89 LINE INPUT "? ",LIG# 

90 IF LIG$="+#" THEN CLOSEOUT:END 
100 PRINT #9,LIG$# 

110 GOTO 80 


LIBERT PIERRE LE 21,7.1985 
RUE DE FARIS 
93000 SOUCE 


NOM: 


RUE > 
VILLE? 


P.LIBERT 


D + +9 249 242 49 9 I 247 4] +9 +4) 3 9 9 +9 


20 

30 

40 

90 

60 

70 

Bû 

90 

190 
110 
120 
1:10 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


10 ‘ 
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EDLE EDITION LETTRE 


OPENIN "LETTRE" 


SET Teener Lecture lettre standard 
DIM TXT$(100) 


FOR L=i TO 100 


IF EOF THEN CLOSEIN:NL=L:GOTO 120 
LINE INPUT #9,TXT#(L) 
PRINT TXT#(L) 


NEXT L 

PRÉSENTS es ee Introduction parametres reels 
PRINT 
FOR P=i TO i0 

PRINT P; 

LINE INPUT "Parametre (ex:NOM=RALU /*x POUR FIN ) ":;X$ 
IF X$="4" THEN 210 

EG=INSTR(X$,"="):IF EG=0 THEN 140 
PRM$(P)=LEFT#S(X$,EG-1):T$(P)=RIGHT$(X$,LEN(X$)-EG) 


NEXT P 

penis Edition lettre 

PRINT 

FOR LG=1 TO NL 

LIG$=TXT$(LG) 

PI=INSTR(LIG#,"<") 

IF Fi1=0 THEN 340 

P2=INSTR(LIGS$,">") 
M$=MID$#(LIG$,P1+1,P2-P1-1) 

FOR NP={ TO 10 
IF UPFERS (M$) =UPPERS(FRM$(NP)) THEN 320 
NEXT NP 

PRINT "PARAMETRE NON TROUVE":STOP 
LIGS$=LEFT$(LIGS$,P1-1)+T$(NP)+RIGHT$(LIG$,LEN(LIG$)-P2) 


PRINT LIG$ 
NEXT LG 


1 Farametre (ex: NOM=BALU /*x POUR FIN ) ? NOM=BRALL 


2 


FA 


Le 


Parametre (ex:NOM=BALU /x*x POUR FIN ) ? RUE=13,RUE DE MILAN 
3 Farametre (ex:NOM=BALU /*x POUR FIN ) ? VILLE=PARIS 


4 Parametre (ex: NOM=BALU /x*x FOUR FIN ) ? + 


LIBERT PIERRE LE 21.7.1985 
RUE DE PARIS 
23000 SOUCE 
BALU 
13,RUE DE MILAN 
PARIS 
Cher RALU,veuillez trouver ci joint ........, 


P.LIBERT 
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ÉDITEUR DE TEXTE 


Cet éditeur de texte saisit en texte en mode “plein écran”. L'image de l'écran représente 
à chaque instant l’image du texte. 


Le curseur se déplace avec les quatre flèches. 

L'insertion des caractères est automatique. Il n'y a pas de mode insertion. 
La touche “DEL” supprime le caractère à gauche du curseur. 

CTRL/B permet d'insérer une ligne. 

CTRL/C supprime une ligne. 

CTRL/A sauvegarde. 

CTRL/D liste sur imprimante. 

CTRLE et CTRL/F déplacent le curseur de dix lignes. 


Le défilement vertical du texte est automatique. 
Pour justifier le texte à droite voir le programme “justification à droite”. 


Ce programme étant relativement complexe, nous avons présenté, à titre d'introduction, 
un éditeur de ligne. 


OOCOC0O00C0CO 


TABLE 
LIG$ 


EXEMPLE DE TEXTE 







2.2.82 
EXEMPLE DE TEXTE 





Sauvegarde sur fichier séquentiel 


[222.82 [JEXEMPLEDETENTE | 





Voici quelques exemples d'utilisation d'un éditeur de texte pleine-page : 


oO Courrier. 
0 Emploi du temps. 
o Dessin. 


J. DUPONT LE 1.7.1985 
11,RUE NOBEL 
78180 MONTIGNY LE BX 


Cher Monsieur 


Veuillez trouver ci joint .......,... 
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EMPLOI DU TEMPS 


18-9 MATHS | 

19-10  !'FRANCAIS MATHS 

JO, 1 ! 

1113-12 PHYSIQUE HISTOIRE 
l 1 


114-15 !'GEO PHYSIQUE 
115-16 !'GYM 
#+* 
#+ 
ARE EE DH DE DEEE DE JE HE XX 
* * 
D ÉÉÉESISIZIZSLSSILS SL SIL LS. 
E ! ss. ! 
5 | Un 
S 1 l ! 1 
] ! _—_—— —…— ! 
! ! 
! ! 
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Ce premier programme saisit une ligne. L'insertion de caractères est automatique. La 
suppression se fait avec la touche “DEL”. 


19 EDITEUR DE LIGNE 
20 : 
30 MODE 2:PAPER O:PEN 1:INK 0,26:INK 1,0 
40 COL=5:LIG=160 ‘ ligne et colonne 
50 GOSUR 80 
bü END 
OF PEER ESS SAISIE D'UNE LIGNE 
89 FC=1 " position curseur colonne 
90 
1990 LOCATE COL+PC-1,LIG:PRINT CHR#(143) ‘ curseur 
110 
120 C#=INKEYS 
130 IF LEN(C#)=0 
THEN LOCATE COL+PC-1,LIG:PRINT MID#(LIG#,PC,1):GOT0 100 
140 
150 C=ASC(C#) 
160 L=LEN(LIG#) 
170 IF C=13 OR C=241 
THEN LOCATE COL+PC-1,LIG:PRINT MID$(LIG$,PC,1):RETURN 
Par ere suppression 
180 IF C£:127 THEN 220 
190 IF PC{=1 THEN 120 
200 LIGÉH=LEFTS$(LIGS$,PC-2) +RIGHT#(LIG$,L-PC+1):PC=PC-1 
205 LOCATE COL,LIG: PRINT LIG$ SPC(2):GO0OT0 100 
210 ess curseur gauche 
220 IF C=242 THEN IF PC:L THEN LOCATE COL+PC-1,LIG:PRINT SPC(1) 
250 IF C=242 THEN IF PC:1 THEN LOCATE COL+PC-1, 
LI6: PRINT MID$#(LIG#$,PC,1):FC=PC-1:G0T0 100 ELSE 100 
240 ‘----- curseur droite 
250 IF C=243 THEN IF PCé=L THEN LOCATE COL+FC-1, 
LIG:PRINT MID#F(LIG$,PC,1):PC=PC+1:G0T0 100 ELSE 1090 


260 
270 IF C=240 THEN RETURN 
280 ‘---------------- caractere normal ajoute 


290 IF L}78 THEN 120 

300 LIG$=LEFT$(LIG#,PC-1)+C$F+RIGHT$(LIG#S,L-PC+1) 
310 LOCATE COL,LIG:PRINT LIG# 

320 ‘ 

330 PC=PC+i 

340 GOTO 100 


10 

20 

30 

40 

90 

80 

ace 
70 

ssi 
80 

es 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


360 


370 
380 
390 
400 
410 


20 


430 
440 
450 
460 
470 
480 
490 
9300 
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EDITEUR DE TEXTE PLEIN ECRAN 
MODE 2:PAPER O:PEN 1:INK O,1:INK 1,24 


WINDOW #0,1,B80,1,21 " fenetre texte 
WINDOW #1,1,80,22,25 ‘ fenetre commandes 
PRINT #1,"Insertion caracteres automatique / Fleches pour depl 


r DEL pour sup" 
PRINT #1,"CTRL A:sauvegarde ÆCTRL B:ajout ligne CTRL C:suppre 
on ligne" 
PRINT #1,"CTRL D:edition imprimante ÆCTRL E et F: saut 10 lign 
CTRL Z:fin" 
C$="":C=0:LIG$="":L=Q0:PC=0 
DIM LIG$(200) 
PRINT 
INPUT "NOM TEXTE(ENTER pour nouveau) ":;NF$# 
IF LENCNF#)=0 THEN CLS#0:GOTO 210 
OPENIN NF$ 
FOR L=1 TO 200 
IF EOF=-1 THEN MX=L-1:GOTD 210 
LINE INPUT #9,LIG#$(L) 
NEXT L 


BH=1:HP=19:BR=BH+HP ” bornes haut et bas/hauteur page 
PC=1 " pointeur curseur colonne 

LIG=BH 

GOSUE 440 

IF LIG>MX THEN MX=LIG 

LIG$=LIG$(LIG):GOSUR 550 


LOCATE 1,LIG-BH+1:PRINT LIG$;SPC(1) 
LIG$(LIG)=LIGS 
IF R=2 THEN IF LIG>1 THEN LIG=LIG-1:G0OT0 390 ELSE 390 
IF R=3 THEN LIG=LIG+1:G60T0 390 
IF R=4 THEN GOSUR 470 
IF R=5 THEN GOSUR 500, 
IF R=6 THEN GOSUR 900 
IF R=7 THEN GOSUB 980 
IF R=8 THEN IF LIG>10 
THEN LIG=LIG-10:GOT0 390 ELSE LIG=1:G0T0 390 
IF KR=9 THEN LIG=LIG+10:G0OT0 390 ELSE 390 
IF LIG<=BB AND LIG>=RH THEN 260 


IF LIG>BR THEN RBB=LIG:BH=RB-HP:GOSUR 440:GO0OTD 269 
IF LIG£BH THEN IF BH>i 

THEN RH=LIG:RER=RH+HP: GOSUR 440:G0T0 2460 ELSE 260 
‘---- Affichage page ecran 

CLS #0 
FOR L=BH TO RR:LOCATE 1,L-BH+{:PRINT LIG#(L):NEXT L:RETURN 
‘--- Ajout ligne 

FOR L=MX TO LIG STEP-1:LIG#(L+1)=LIG$(L):NEXT L 
LIGF(LIG)="":GOSUR 440: MX=MX+1:RETURN 

‘---- Suppression ligne 

FOR L=LIG TO MX:LIG$(L)=LIGS$(L+1):NEXT L:LIG$(MX)="" 


— 
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910 MX=MX-1:GOSUB 440:RETURN 

JA0' dersssrermssssssess SAISIE D'UNE LIGNE 

330 IF PC)LEN(LIG$) THEN PC=LEN(LIG#)+1 

540 IF LEN(LIG$)=0 THEN PC=1 

590 ‘ 

960 LOCATE PC,LIG-BH+i:PRINT CHR$(143) ‘curseur 

970 

980 C$=INKEYS# 

990 IF LEN(C$)=0 

THEN LOCATE PC,LIG-BH+1:PRINT MID$(LIG$,PC,1):GOT0 560 


690 

b10 C=ASC(CS#) 

620 L=LEN(LIG#) 

b30 IF C=240 THEN R=2:RETURN ” fleche haut 
640 IF C=13 OR C=241 THEN R=3:RETURN " fleche bas 
650 IF C<>127 THEN 710 

660 ‘---- suppression caractere 


670 IF PC<=1 THEN 580 
680 LIG$=LEFT$(LIG$,PC-2)+RIGHT$(LIG$,L-PC+1):PC=PC-1 
690 LOCATE 1,LIG- BH+1: PRINT LIG$ SPC (2): GOTO 560 
700 ‘----- curseur gauche 
710 IF C=242 THEN IF PC>L THEN LOCATE PC,LIG-BH+1:PRINT SPC(1) 
720 IF C=242 THEN IF PC>1 THEN LOCATE FC, 
LI6- —BH+1:PRINT MID$(LIG$,PC,1):PC= PC- 1:G0T0 560 ELSE 560 

430 "== curseur droite 
740 IF C=243 THEN IF PC<=L THEN LOCATE PC, 

LIG-BH+I:PRINT MID#(LIG$,PC,1):PC=PC+1:G0T0 560 ELSE 560 


750 ‘ 

760 IF C=1 THEN R=6: RETURN ‘ sauvegarde 

770 IF C=2 THEN R=4:RETURN " insertion ligne 

780 IF C=3 THEN R=5:RETURN " suppression ligne 
790 IF C=4 THEN R=7:RETURN " affichage imprimante 
800 IF C=5 THEN R=8:RETURN 

810 IF C=6 THEN R=9:RETURN 

820 IF C=26 THEN END 

825 IF C{32 THEN 560 

830 ‘---------------- caractere normal ajoute 


840 IF L>78 THEN 580 

850 LIG$=LEFT$(LIG$,PC-1)+C$+RIGHT$(LIG$,L-PC+1) 
860 LOCATE 1,LIG-BH+1:PRINT LIG$ 

870 PC=PC+1i 

880 GOTO 560 

890 ‘==========-=======-===2-=2=22=- SAUVEGARDE 

900 LOCATE #1,1,4:INPUT #1,"NOM ";NF# 

910 OPENOUT NF$ 

920 FOR L=1 TO MX 

930 PRINT #9,LIG6$(L) 

940 NEXT L 

950 CLOSEOUT 

960 RETURN 

970 ‘======2=2===22 EDITION IMPRIMANTE 

980 FOR L=1 TO MX 

990 PRINT #8,LIG#$(L) 

1900 NEXT L 

1010 RETURN 

1029 ‘--- Les instructions: LI6$="" ne comportent pas d'espace en 
tre les "" 
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JUSTIFICATION DE TEXTE 


Le premier programme ci-dessous justifie une ligne à droite en ajoutant des espaces 
entre les mots. Le second programme justifie un paragraphe. Le paragraphe est d'abord 
mis sous forme de lignes de 65 caractères au maximum. Le découpage se fait sur des 
espaces ou des virgules. Le programme insère ensuite des espaces pour justifier à 
droite. 


‘ JUSTIFICATION À DROITE D'UNE LIGNE 
29 ‘ 

30 MODE 2 

40 LL=30 " longueur maxi 
90 LIG$="LE PETIT CHAT RONRONNE" 

60 

70 S=i 

80 ‘ 

90 IF LEN(LIG$)>=LL THEN END 

100 FOR K=S TO LEN(LIG#) * recherche debut espace 
110 X$=MID$S(LIG$,K,1) 

120 IF X$=CHR$(32) THEN GOTO 170 

130 NEXT K 

140 IF LEN(LIG$)<LL THEN 70 

150 END 

169 ‘ 

170 FOR V=K+1 TO LEN(LIG6$) ‘ recherche fin espace 
180 X$=MID$(LIG$,V,1) 

190 IF X$<>CHR$(32) THEN 220 

200 NEXT V 

210 


220 LIG$=LEFT$S(LIGS$,V-1)+SPACES$ (1) +RIGHT$(LIG$,LEN(LIG$)-V+1) 
230 PRINT LIG$ 

240 S=V+1 

250 GOTO 90 


LE PETIT CHAT RONRONNE 

LE PETIT CHAT RONRONNE 

LE PETIT CHAT RONRONNE 

LE PETIT CHAT RONRONNE 

LE PETIT CHAT  RONRONNE 

LE PETIT CHAT RONRONNE 
LE PETIT CHAT RONRONNE 
LE PETIT CHAT RONRONNE 
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10 JUSTIFICATION À DROITE D'UN FARAGRAPHE 
20 ‘ 

30 MODE 2:PAPER O:PEN 1:INK O0,0:INK 1,26 

40 DIM TXT$#(1000) 

90 LLIG=60 ‘ Longueur decoupage ligne 
680 ” 

70 INPUT "NOM DU FICHIER ";NF$ 

80 OPENIN NF$ 

90 ‘=====================2== NORMALISATION DES LIGNES 
190 ‘ Les lignes sont lues dans une memoire tampon 
110 ‘ puis decoupees en lignes de 65 caracteres. 


120 

130 NL=0 ‘ nombre de lignes dans TXT#({) 

140 ‘ 

150 IF EOF THEN CLOSEIN:GOSUR 230:NL=NL+1:TXT$(NL)=TAMP$:GOTO 400 
160 ‘ 


170 IF LEN(TAMP#$)>150 THEN GOSUR 230 
180 LINE INPUT #9,LIG# 

190 PRINT LIG$ 

200 TAMP$F=TAMP$+LIG$+CHR# (32) 

210 GOTO 150 


220" ss ss Decoupage memoire tampon dans TXT#() 
230 IF LEN(TAMPF#)£{LLIG THEN RETURN 

240 D=1:AP=0 " debut -ancienne position 

250 ‘ 

260 PI=INSTR(D,TAMP$,CHR$(32)) " recherche espace 
270 P2=INSTR(D,TAMP#,",") ‘ recherche virgule 


280 IF P1=Q AND P2=0 THEN 340 

290 P=MIN(P1,P2) 

300 IF P1=0 THEN P=P2 

310 IF P2=0 THEN P=P1i 

320 IF P£LLIG THEN AF=P:D=P+1:GO0OT0 260 

330 ‘ 

340 X$=LEFT$(TAMP$,AP) 

350 IF ASC(RIGHT$(X$,1))=32 THEN X$=LEFT$#(X$,LEN(X#)-1) 


360 NL=NL+I1:TXT$(NL)=X$ " transfert TXT$() 
370 TAMP$=RIGHT$(TAMP$,LEN(TAMP$#)-AP) ‘ reste 

380 GOTO 239 

S70 Teese see EDITION TEXTE NORMALISE 


400 PRINT "TEXTE NORMALISE'":PRINT 
410 FOR I=1 TO NL 
420 PRINT TXT#{I) 


430 NEXT I 

440 ‘======2==============22=== JIISTIFICATION À DROITE 
450 PRINT:PRINT "TEXTE JUSTIFIE A DROITE":PRINT 

460 ‘ 


470 FOR L=i TO NL 
480 LIG$=TXT#(L) 
490 IF LEN(LIG$)<LLIG*x0.75 THEN 700 


500 R=09 ‘ temoin espace 

910 S=1 ‘ debut recherche 

920 IF LEN(LIG$))}=LLIG THEN 700 

930 FOR K=S TO LEN(LIG$) ‘ recherche espcace 
540 X$=MID$(LIG$,K,1) 

990 IF X$=CHR$(32) THEN R=1:G0T0 610 


FICHIERS | 89 


560 NEXT K 

970 IF R=0 THEN 700 

580 IF LEN(LIG$)<LLIG THEN GOTDO 500 

9590 GOTO 700 

600 ‘ 

610 FOR V=K+1 TO LEN(LIG6$#) ‘ recherche fin espace 
620 X$=MID$(LIG$,V,1) 

630 IF X$C)>CHR$ (32) THEN 660 

b4Q NEXT V 

650 ‘ 

660 LIG$=LEFT$(LIGS$,V-1)+SPACES$ (1) +RIGHT$(LIG$,LEN(LIG#$)-V+1) 
670 S=V+1 

680 G6OTO 520 

b90Q 

700 PRINT LIG$ 

710 NEXT L 


Exemple de texte à justifier : 


L'auteur du “MIGRATEUR" n'a évidemment jamais habité quelque part. Il a pourtant 
fini par poser ses valises dans l’île d'Houat, en Bretagne. Dans la solitude, il écrit l'his- 
toire de sa jeunesse, “sa chute hors du lycée, dans le hasard”. Lire pages 18 à 30. 


O Texte normalisé 


L'auteur du “MIGRATEUR"” n'a évidemment jamais habité 
quelque part. Il a pourtant fini par poser ses valises dans 
l’île d'Houat, en Bretagne. Dans la solitude, il écrit 
l’histoire de sa jeunesse, “sa chute hors du lycée, dans le 
hasard”. Lire pages 18 à 30. 


0 Texte justifié à droite 


L'auteur du “MIGRATEUR” n'a évidemment jamais habité 
quelque part. || a pourtant fini par poser ses valises dans 
l'île d'Houat, en Bretagne. Dans la solitude, il écrit 
l'histoire de sa jeunesse, “sa chute hors du lycée, dans le 
hasard”. Lire pages 18 à 30. 
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MAILING 


Ce programme permet d'envoyer des lettres personnalisées. Il utilise un fichier 
d'adresses déjà constitué par le programme “fichier d'adresses”. La lettre, stockée dans 
un fichier séquentiel, doit déjà exister (cf. éditeur de texte). 


NOM DU FICHIER LETTRE ? LMAIL 
NOM DU FICHIER ADRESSE ? ADR 


Nous vous prions de bien vouloir trouver ci joint 
un exemplaire de notre nouveau catalogue 1986. 


Nous sommes a votre disposition pour tout renseignement 
complementaire. 


J.MARTIN 


QUELLE VILLE (ENTER POUR TOUTES)? 
6 FICHES 


DUPONT 


11,RUE NOBEL 
78180 MONTIGNY 


Nous vous prions de bien vouloir trouver ci joint 
un exemplaire de notre nouveau catalogue 1986. 


Nous sommes a votre disposition pour tout renseignement 
complementaire. 


J.MARTIN 


20 
30 


50 


16 


40 
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MAILING 


‘ Les fichiers lettre et adresses doivent deja exister 
Cf programme ‘fichier d'adresses‘ et editeur de texte. 


bQ MODE 2:PAPER O:PEN 1! 


70 

80 

90 

100 
119 
120 
1:30 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
390 
360 
370 
380 
390 
400 
410 
420 


INPUT "NOM DU FICHIER LETTRE ";L# 
INPUT "NOM DU FICHIER ADRESSE ":NF$ 
mm mm Lecture lettre dans table LIG#({() 
OPENIN L$ 

DIM LIG6#$(100) 
FOR Lz=i TO 100 

IF EOF THEN NL=L-1:G60T0 1890 

LINE INPUT #9,LIG#(L) 

PRINT LIG#$({(L) 
NEXT L 


CLOSEIN 


INPUT "QUELLE VILLE (ENTER POUR TOUTES)":;V# 


OPENIN NF$ 
INPUT #9,NFICH:PRINT NFICH3;"FICHES":PRINT 


1F EOF THEN CLOSEIN:END 

LINE INPUT #9,N0M$# 

LINE INPUT #9,RUE$ 

LINE INPUT #9,VILLES$ 

LINE INPUT #9,CPSTS$ 

IF LEN(V$)<2>0 THEN IF VILLE$<>V$ THEN 250 
rss senenes Edition lettre 
PRINT TAB(30) NOM$ 

PRINT 

PRINT TAB(35) RUE$ 

PRINT TAB(35) CPST$ SPC(1) VILLES$ 
PRINT 

PRINT 

FOR L=1 TO NL 

PRINT LIG#(L) 

NEXT L 

PRINT:INPUT "APPUYER SUR ENTER "“:;X$ 
GOTO 250 
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GESTION DE CLUBS 


Des tables contiennent les noms des membres de clubs sportifs ainsi que le nombre de 
points obtenus par chacun des membres. On désire obtenir les listes suivantes : 


Oo Classement individuel. 
© Total par club. 

a Liste triée par noms. 

oO Liste triée par clubs. 


NOMS() CLUBS() POINT() 


BOULOGNE 12 
BOULOGNE 16 
MONTIGNY 14 
MONTIGNY 13 
PARIS 14 
PARIS 15 


Rang — 





LISTE TRIÉE PAR NOMS 


La liste triée par noms est obtenue à l'aide d’une table CLES$() et une table INDEX() (cf. 
“tri d’un fichier d'adresses”). 


TOTAUX PAR CLUBS 


Pour chaque membre on effectue la totalisation dans une table TP(). Les noms des 
clubs sont placés dans une table CLUBS(). Les tables pourraient être triées pour afficher 
le résultat dans l'ordre des clubs. 


CLUBS() TP() 


BOULOGNE 28 
PARIS 29 
MONTIGNY 27 





CLASSEMENT INDIVIDUEL PAR POINTS 


Afin d'utiliser le programme de tri du classement par noms nous convertissons le nom- 
bre de points sous forme d'une chaîne de caractères : 


CLES$(NCL)=RIGHTS$(" "+STR#(POINT(F)),4) 


LISTE TRIEE PAR CLUBS 


Mode 7? TC 
BOULOGNE DUPONT 12 
BOULOGNE LEBOSSE 16 TOTAL PAR CLUB 
MONTIGNY BALU 14 
MONTIGNY BRERION 3 BOULOGNE 28 
FARIS MARTIN 14 PARIS 29 


PARIS ROULET 15 MONTIGNY 27 


90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
470 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
380 
490 
500 
510 
520 
530 
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GESTION DE CLUBS SPORTIFS 


MODE 2:PAPER O:PEN 1:INK O,1:INK 1,24 

DIM NOM$(100) ,CLUB$(100) ,POINT(100) 

DIM CLE$(100),INDEX(100) 

NFICH=0 ” nombre de fiches 

INPUT "Nouveau fichier (O/N) ";R$# 

IF R$="0" OR R$="o" THEN 110 

GOSUR 660 " appel lecture du fichier 


CLS:PRINT "Modes:":PRINT 

PRINT TAB(3) "C: creation/modification" 

PRINT TAR(3) "LF: liste du fichier" 

PRINT TAB(3) "LFN: liste triee par nom" 

PRINT TAR(3) "LFC: liste triee par club" 

PRINT TAB(3) "LFP: liste du fichier par points" 
PRINT TAB(3) "TC: total par clubs" 

PRINT TAB(3) "FIN: fin de session(sauvegarde)" 
PRINT:INPUT "Mode "3; M$ 

M$=UPFERS (M$) 

IF M$="C" THEN GOSUR 300 

IF M$="LFN" THEN GOSUB 1000 

IF M$="LFC" THEN GOSUR 1140 

IF M$="LFP" THEN GOSUE 1280 

IF M#="TC" THEN GOSUR 1430 

IF M$="FIN" THEN GOSUB 550:ÆEND 

IF M$="LF" THEN GOSUR 780 

GOTO 1190 

‘sz=z====22222==2==22===2===2==2=2=222== CREATION/MODIFICATION 
PRINT 

PRINT "ENTER pour zone inchangeelen modif)":PRINT 
INPUT "Nom (ENTER pour fin) ";NOM$:NOM$=UPPERS$(NDM$) 
IF LEN(NOM$)=0 THEN RETURN " fin de mode? 


IF NFICH=0 THEN 400 
FOR RANG=1 TO NFICH 
IF NOM$=NOM$ (RANG) THEN 460 " nom existe t-il? 
NEXT RANG 
Réponse ssssseses— nouveau nom 
PRINT : INPUT "Nouveau nom OK (O/N) ";R# 
IF R$<>"0" AND R$<>"o" THEN 300 
NFICH=NFICH+I 
RANG=NFICH 
NOM$ (RANG) =NOM$ 
lÉRRSSSÉESRSTÉeR SSSR ese entree/modification zones 
PRINT 
PRINT CLUBS#(RANG) TAB(15) ‘ ancienne valeur 
INPUT "Club ";CLUBS#:CLUR#=UPPERS$ (CLUB#) 
IF LEN(CLUBR#$)£>0 THEN CLUB$(RANG)=CLUR# 
PRINT FOINT(RANG) TAB(15) 
INPUT "Points ":;FOINT 
IF POINT<}O THEN POINT(RANG)=POINT 
GOTO 300 
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Dd0-M==s=ssE=s===22=2=-5==2-2-----52--2222. SAUVEGARDE 
930 OPENOUT "CLUBS" 


970 FRINT #9,NFICH 

380 FOR F=1 TO NFICH 

990 PRINT #9,NOM#(F) 

600 PRINT #9,CLUB$(F) 

610 PRINT #9,POINT(F) 

b20 NEXT F 

630 CLOSEOUT 

640 RETURN 

50 ‘=====2=============2=====2==2==2== |[ECTURE DU FICHIER 
66Q OPENIN "CLUBS" 


68Q INPUT #9,NFICH 

690 FOR F=1 TO NFICH 

700 INPUT #9,N0M#(F) 

710 INPUT #9,CLUB$#(F) 

720 INPUT #9,POINT(F) 

730 NEXT F 

740 CLOSEIN 

759 PRINT:PRINT NFICH;"Fiches" 
760 FOR TP=1 TO 2000:NEXT TP 


770 RETURN 

780 ‘=======2=2==2=====2====2==2==2===2==2= liste du fichier 
790 PRINT "liste du fichier":PRINT 

800 ‘ 


B10 FOR F=1 TO NFICH 

820 IF F MOD 20=0 THEN INPUT "APPUYER SUR ENTER":X$ 
830 PRINT NOM$(F) TAB(15) CLUR$(F) TAB(30) POINT(F) 
840 NEXT F 

850 PRINT:INPUT "Appuyer sur <ENTER} "3X$ 

860 RETURN 

70 jrs ses ssssese tri shell 

880 ECART=NCL 

890 ECART=INT(ECART/2):1F ECARTCI THEN RETURN 

900 IV=0 

910 FOR K=1 TO NCL-ECART 

920 J=K+ECART 

930 IF CLE$(J)>=CLES$(K) THEN 960 

940 X$=CLE$(K):CLES$(K)=CLE$(J):CLE$(J)=X$:IV=1 

950 X=INDEX(K):INDEX(K)=INDEX(J):INDEX(J)=X 

960 NEXT K 

970 IF IV=1 THEN 900 


990 ‘=======22222=2=2=22=222= LISTE TRIEE PAR NOM 
1000 NCL=0 ‘nombre de cles 

1910 FOR F=1 TO NFICH 

1020 NCL=NCL+1:CLES$(NCL)=NOM$(F): INDEX (NCL)=F 
1930 NEXT F 

1040 GOSUB 880 

10950 ‘-------- EDITION 

1960 PRINT:PRINT "LISTE TRIEE PAR NOMS":PRINT 
1070 FOR F=1 TO NCL 

10809 X=INDEX(F) 

1090 PRINT NOM$(X) TAR(15) CLUR$(X) TAB(40) POINT(X) 
1100 NEXT F 

1110 PRINT:INPUT "APPUYER SUR ENTER ";Xx$ 

1120 RETURN 


fzzzzzz===22=2=2==2==222=========2= JR] PAR CLUB 

NCL=0 ‘ nombre de cles 

FOR F=1 TO NFICH 
NCL=NCL+1:CLES$ (NCL) =CLUR$#(F) +NOM$ (F) : INDEX (NCL)=F 
NEXT F 

GOSUR 880 

ESS EDITION 


O PRINT:PRINT "LISTE TRIEE PAR CLUBS'":PRINT 


FOR F=1 TO NCL 

X=INDEX(F) 

PRINT CLUB$(X) TAR(15) NOM$(X) TAB(30) POINT(X) 
NEXT F 
PRINT:INPUT "Appuyer sur ENTER":X# 


====2zz=2z2=2z=2=22=22=========== |[R] PAR POINTS 
NCL=0 


O FOR F=1 TO NFICH 


NCL=NCL+1 
CLE$(NCL)=RIGHTS$(" "+STR$(POINT(F)),4) 
INDEX (NCL)=F 
NEXT F 
GOSUB 889 
‘senece EDITION 
FOR F=1 TO NCL 
X=INDEX(F) 
PRINT POINT(X) TAB(10) NOM$(X) 
NEXT F 


O PRINT: INPUT "APPUYER SUR ENTER ";X$ 


RETURN 

‘asssszsss==ez=2=2===222==222====== JOTAL PAR CLUR 
NCLUE=0 

FOR F=1 TO 10:TP(F)=0:NEXT F 

FOR F=1 TO NFICH 


FOR C=1 TO NCLUR 
IF CLUB$(F)=CLUB$(C) THEN 1520 

NEXT C 
NCLUR=NCLUR+1 ” nouveau club 
C=NCLUB:CLUBS$(NCLUB)=CLUBS$(F) 
TP(C)=TP(C)+POINT(F) 

NEXT F 

rsseéss EDITION 

PRINT:PRINT "TOTAL PAR CLUB":PRINT 


FOR C=1 TO NCLUB 


PRINT CLUB$(C),TP(C) 
NEXT C 
PRINT:INPUT "APPUYER SUR ENTER":X$ 


RETURN 
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INDEX DE LIVRE 


Les mots-clés et les numéros de page sont définis en DATA. Ils sont lus dans deux 
tables CLES$() et PG$() puis triés et édités. 


10 ‘idlv INDEX DE LIVRE 

20» 

25 MODE 2:PAPER O:PEN 1 

30 DIM CLE$(200) ,PG$(200) 

40 DATA B1,ABS 

50 DATA 22,AND 

60 DATA 59,ASC 

70 DATA 94,CLEAR 

80 DATA 15,AUTO 

90 DATA 60,CHR$ 

100 DATA 63,BIN$ 

110 DATA 28,HORDER 

120 DATA + 

130 ‘---------- LECTURE DATAS DANS TABLES 

140 FOR J=1 TO 200 

150 READ PG#(J):1F PG$(J)="#" THEN NM=J-1:G0T0 200 
160 READ CLE$(J) 

170 PRINT PG$(J),CLE#(J) 

180 NEXT J 

190 ‘--------- TRI 

200 IV=0 

210 FOR J=1 TO NM-1 

220 IF CLE$(J+1)>=CLE$(J) THEN 250 

230  X$=CLES$(J):CLE#(J)=CLES$ (J+1):CLES$(J+1)=X$ 
240  X$=PB$(J):PG$(J)=PG$(J+1): PGS(J+1)=X$: IV=1 


250 NEXT J 

260 IF IV=1 THEN 200 

270 ‘------------------- EDITION 

280 CN=0 " CN=B pour imprimante 


290 FOR J=1 TO NM 

300 IF LEFT$(CLE$(J-1),1)=LEFT#$(CLES$(J),1) THEN 330 
310 PRINT #CN:PRINT #CN, LEFT$(CLE$(J),1):PRINT #CN 
320 ‘ 


330 PRINT #CN,TAB(3) CLE$(J) STRING$(I1B-LEN(CLE#(J)),".") y 
340 PRINT #CN,TAB(22) PG$(J) 
350 NEXT J 
A 
ABS.... conso Bi 
AND... ss. 22 
ASC. .sossens ste state 07 
AUTO... ...sssauuse D 
B 
BIN$..... ss. 63 
BORDER....,.,....:. 28 
C 
CHR$ ess cesse sser 6û 
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HISTOGRAMME CIRCULAIRE (CPC 664) 


L'histogramme circulaire présenté utilise la fonction “FILL couleur”. Chaque secteur de 
l'histogramme est colorié avec une des trois couleurs disponibles en MODE1. 


Sur CPC 464, on pourra remplacer 400 par 400 PLOT XA, YA:DRAW,X,Y,CE. 


10 ‘ HISTOGRAMME CIRCULAIRE (CPCé64) 
20 ‘ 

30 MODE 1 

40 INK 0,26:INK 1,0:PAPER O:PEN 1! 

50 INK 2,2:INK 3,6 

60 ‘ 

70 DATA AMSTRAD,0.3, MSX,0.1 

80 DATA APPLE,0.2, IBM,0.3 

90 DATA ATARI,0.1 


100 

110 FOR I1=1 TO 5:READ H$(I),H(I):NEXT I 
120 ‘ 

150 XA=200:YA=200 ‘ centre 

140 R=60 ‘ rayon 

190 ‘= 

160 AD=0 " angle debut 
170 FOR P=1 TO 5 

180 CE=(P MOD 3)+1 " couleur 


190 XD=XA+R#COS (AD) : YD=YA+R*SIN(AD) 

200 PLOT XA,YA:DRAW XD,YD,CE 

210 AF=AD+PI#2#H(P) " angle fin 

220 GOSUB 370 

230 X=XA+R#COS(AF):Y=YA+R#SIN(AF) 

240 PLOT XA,YA:DRAW X,Y,CE 

250 ‘ 

260 AT=AD+PI#H(P) " affichage texte 

270 X=XA+R#1.4#COS(AT): Y=YA+R#1. 4xSIN(AT) 

280 “MOVE XA+R/2#CO0OS (AT) ,YA+R/2#SIN(AT) 

290 FILL CE 

300 IF AT>PI/2 AND AT<3#PI1/2 THEN X=X-16#LEN(H$(P)) 
310 PLOT X,Y:TAG:PRINT H$(P); 

320 AD=AF 

330 NEXT P 

340 PEN 1! 

350 END 

360 ‘-------------- PORTION DE CERCLE 

370 FOR A=AD TO AF+0.05 STEP 0.05 

380 X=XA+R+CDOS(A) 

390 Y=YA+R&#SIN(A) 

400 DRAK X,Y,CE 

410 NEXT À MEX 
420 RETURN 


AMSTRAD 





APPLE 
ATARI 


IBM 
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HISTOGRAMME DOUBLE 


Ce type d'histogramme permet de comparer deux séries de valeurs, par exemple les 
ventes mensuelles pour deux années différentes. 


300 
706 
690 
500 
406 
306 
200 
1606 
JU FU 





MRS AUR MAIL JUIN JIL 


20 

30 

35 

40 

50 

69 

70 

89 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
9500 
910 
520 
530 
540 
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tm HISTOGRAMME DOUBLE 

MODE 1 

INK 0,26:INK 1,6:INK 2,0:PAPER O:PEN 1 

DIM MOIS$(12),VNTE1(12) ,VNTE2(12) 

NM=7 " nonbre de mois 
DATA JV,500,300, FV,400,800 

DATA MRS,600,700, AVR,700,600 

DATA MAI,600,400, JUIN,500,600 

DATA JL,700 ,780 


FOR Mzi TO NM:READ MOIS$(M),VNTEÏ(M) ,VNTEZ2(M):NEXT M 
XA=80:YA=30 " depart axes 

IX=70 " intervalle X 

HECR=300 * hauteur ecran 


raser aroes near recherche maxi 
MX=VNTE (1) 

FOR M=2 TD NM 

IF VNTEI(M)2>MX THEN MX=VNTEI (M) 


IF VNTE2(M)>MX THEN MX=VNTEZ2(M) 
NEXT M 
ECH=HECR/MX " echelle 


a nn EL EP En mi axes 
PLOT XA,YA:DRAW XA+NMæ#IX,YA, 1 
PLOT XA,YA:DRAW XA,HECR+YA, 1 
RSR Tree Serre rener Sn ree affichage mois 
FOR M=1 TO NM 
X=XA+B+IX#(M-1):Y=YA-12 
PLOT X,Y:TAG:PRINT MDIS$(M); 


ar ut D one CS 2 a ma ci ONE EE courbe 1! 
FOR M=1 TO NM 
Xi=XA+10+IX#(M-1):Y1=YA+VNTE! (M) #ECH 

FOR DX=0 TD 5 

PLOT X1+DX,YA:DRAW X1+DX,Y1,1 

NEXT DX 


rÉSrrenes esse sresseme messes courbe 2 
FOR M=1 TO NM 
X1=XA+20+IX#(M-1):Y1=YA+VNTEZ(M)#ECH 


FOR DX=0 TO 5 
PLOT X1+DX,YA:DRAW X1+DX,Y1,2 
NEXT DX 


RÉTRTS Te ERT graduations 

N6=10 * nombre de graduations 
PAS=INT(MX/N6) 

IF PAS}50 AND PAS<100 THEN PAS=100 

IF PAS}10 AND PAS<50 THEN PAS=50 
NG=INT(MX/PAS) 

IG=HECR/NG ‘ intervalle graduations 
FOR 6=1 TO NG 

MOVE 1,YA+6+*16 

TAG:PRINT GxPAS; 
NEXT G 


101 
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LE MOT LE PLUS LONG 


Dans chaque ligne de DATA nous indiquons : 


0 Les 9 lettres qui sont affichées à l'écran. 
0 La liste des réponses possibles (* représente la fin de la liste). 


La première version ne comporte pas de chronomètre (lignes 10 à 490). Pour une 
version avec chronomètre ajoutez les lignes 510 à 850 et faire : 340 GOSUB 520. 


UOTRE REPOMNSE" NN 


1 L 
TRÔOE TRE 
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10 

20 

30 

40 

50 

60 

70 

80 

99 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
2290 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
499 


BASIC AMSTRAD 


"MOT MOT LE PLUS LONG 


MODE 1:INK 0,0:INK 1,26:PAPER O:PEN 1 
NM=6 " Nombre de lignes 
DATA FICHIERSW,FICHIERS, # 
DATA PEDALESTO,PEDALES,PETALES ,PEDALOS, * 
DATA MOQUETTEA,MOQUETTE ,MAQUETTE , * 
DATA ARMOIRESI , ARMOIRIES, # 
DATA FAUTEUILY,FAUTEUIL, # 
DATA CHEVELUAR,CHEVELU,CHALEUR,CHAULER, *# 
RESTORE " debut DATA 
CLS 
FOR J=1 TO 9:F(J)=0:NEXT J 
X=INT(RND(1)#NM) " mot au hasard 
FOR J=1 TO X ” lecture des precedents 
READ X$:1IF X$<>"#" THEN 170 
NEXT J 
‘---- stockage reponses 
READ MP$ 
FOR J=i TO 5 
READ MOT$#(J) 
IF MOT$(J)="x" THEN 260 
NEXT J 
FRE Affichage des lettres au hasard 
LOCATE 10,10 
FOR J=1 TO 9 
P=1+INT(RND(1)#9) 
IF F(P)=0 THEN PRINT MID$(MP$,P,1);SPC(1);:F(P)=1 ELSE 289 
NEXT J 


PRINT 

HD=TIME 

‘---- POUR VERSION CHRONO: 340 GOSUB 520 

LOCATE 6,20:INPUT "Votre reponselou FIN) ";LIG$ 


LOCATE 1,22:PRINT INT((TIME-HD)/400) ;"secondes" 


LIG$=UPPER$(LIG$):1F LIG$="FIN" THEN END 
FOR J=1 TO 5 

IF MOT$(J)="x" THEN 440 

IF LIG$=MOT$(J) THEN LOCATE 1,15:PRINT "OK":GDT0O 480 
NEXT J 


‘--- affichage bonnes reponses 
FOR J=1 TO 5 
IF MOT$(J)="+#" THEN 480 
LOCATE 1,14+J:PRINT MOT$(J) 
NEXT J 
FOR TF=1 TO SOOO:NEXT TP 
GOTO 120 
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Pour une version avec chronomètre ajoutez les instructions suivantes : 


900 ‘------------ ENTREE AVEC CHRONO-- 
9510 ‘ Ajouter les lignes 10 a 490 
520 HD=TIME 
530 AFTER 800,0 GOSUR 600 
540 XS=6:YS=20 
999 LOCATE XS,YS:PRINT "VOTRE REPONSE?(ou FIN) ";SPC(12); 
560 XS=XS+23:GO0OSUB 640 
570 X=REMAIN(0) 
580 RETURN 
590 ‘----- SOUS PROGRAMME CHRONO 
600 LOCATE 1,23:PRINT "TROP TARD" 
610 TT=1 
b20 RETURN 
659 ‘---------- saisie d'une ligne avec INKEY$ 
640 LIG$="" " pas d'espace entre les "" 
650 TT=0 " temps 
660 ” 
670 LG=LEN(LIGS$):LOCATE XS+LG,YS:PRINT CHR#(143);CHR$(32) ‘ 143 
curseur 
680 LOCATE XS+LG,YS 
690 
700 C$=INKEYS$ 
710 IF TT=1 THEN RETURN 
720 IF LEN(C$)=0 
THEN LOCATE 1,22:PRINT INT((TIME-HD)/400):GOT0 670 
730 C=ASC(C#) 
740 
750 IF C<>127 THEN 780 " code suppression 
760 IF LG}>0 THEN LIG$= 
LEFT$(LIG$,LG-1):PRINT CHR$(8);CHR#(32):60T0 670 ELSE 670 
770 
780 IF C=13 THEN 840 " code ENTER? 
790 IF C<32 OR C>127 THEN PRINT CHR$(7);:G60OT0 700 
800 LIG$=LIG$+C$ ‘ ajout caractere 
810 PRINT C# " affichage caract. 
820 GOTO 670 
830 ‘ 
840 LOCATE XS+LG,YS:PRINT CHR#(32) 
850 RETURN 
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LE COMPTE EST BON 


Nous avons programmé “le compte est bon” d’après la méthode suivante (JC BUISSON 
l'Ordinateur Individuel numéro 54bis) : 





O Nous essayons de diviser le nombre cherché par un des six nombres proposés de 
façon à obtenir un quotient entier. 

D Si nous ne trouvons pas de quotient entier, nous procédons de la même façon, mais 
en ajoutant ou en retranchant un des six nombres proposés au nombre cherché. 

D En cas de succès, nous procédons comme ci-dessus avec le quotient obtenu. 











Si nous parvenons à un quotient égal à 1, nous sommes en mesure de proposer un bon 
compte. 


Exemple : 
Soit à trouver 840 avec 5,5,8,25,4,8. 


840 — 

On fait: 1/ ei — 168 
168— 

2/ = 5 
8 
21+4 

3/ =. 1 
25 


Il suffit alors de faire : 25—-4=21 
21*8=168 
168*5-840 


Cette méthode n'envisage qu'un certain nombre de solutions. Le “bon compte” est 
trouvé deux fois sur trois. 






Nombre a trouver ? 840 
Nombre ? 
Nombre ? 
Nombre ? 
? 
? 
? 


NV 
Nombre 
Nombre 
Nombre 


ANA BEN UE 
on 


Voici le compte 


25 - 4 = 21 
21 X 8 = 168 
168 X 5 = 840 Nombres Occupation Résultats Opération 


partiels +/— 


Division 


LE COMPTE EST HEON 
D'apres J.RUISSON (ORDINATEUR INDIVIDUEL S4RI 


NEC) : nombres 


RP() : resultats partiels 

AD() : pointeurs vers additions 
DV() : pointeurs vers divisions 
OC() : temoin occupation de NE) 


MODE 2:FAPER O:PEN 1:INK 0,26:INK 1,0 
INPUT "Nombre a trouver ";RP(0) 


FOR J=1 TO 6:INPUT "Nombre ";NB(J):NEXT J 


FOR J=i TO 6:0C(J)=0:NEXT J 
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NV=1 
AD(NV)=0:DUV(NV)=1 " Initialisation pointeur 
IF OC(AD(NV))=1 THEN 320 ‘ Deja utilise 


IF OC(DV(NV))=1 OR AD(INV)=DV(NV) THEN 290 ‘ memes nombres 


RP (NV) =(CRP(NV-1)-NB(AD(NV)))/NB(DV(NV)) 
IF RP(NV)=ABS(INT(RP(NV))) THEN OP$(NV)="+":G60TO 380 
RP (NV)=CRP(NV-1)+NB(AD(NV)))/NB(DV(NV)) 
IF RP(NV)=ABS(INT(RP(INV))) THEN OP$(NV)="-":G6GOTD 380 


DV(NV)=DV(NV)+1:1IF DV(NV)<=6 THEN 220 
DV(NV)=i 


AD(NV)=AD(INV)+1:IF ADINV)£=6 THEN 210 
RÉRSTETST Ses pas de solution de niveau N 
IF NV=1 THEN PRINT "Pas de solution":STOP 


NV=NV-1: OC(AD(INV))=0:0OC(DV(NV))=0:GOTO 290 
PE REA solution niveau NV 
IF RPINV)=0 OR RP(NV)=1 THEN 440 

IF ADINV)£>0 THEN OC(AD(INV))=1 
OC(IDV(NV))=1 
NV=NV+1: GOTO 190 

Érasooeaere us e Affichage resultats 
PRINT:PRINT "Voici le compte":PRINT 
FOR J=NV TO 1 STEP-1 

IF RP(J)=0 THEN 530 

IF RP(J)=1 THEN 510 

IF NB(DV(J))=1 THEN 510 


PRINT RP(J) "X" NB(DV(J)) "=" RP(J)#NH(DV(J)) 

IF NR(AD(J))=0 THEN 530 

PRINT RP(J)4NB(DV(J)) OP$(J) NB(AD(J)) "=" RP(J-1) 
NEXT J 

SÉSTT Teese Se POUR TEST 
PRINT 


FOR 1=0 TO NV:PRINT RP(I) ,NB(AD(I)) ,NB(DV(I)):NEXT I 
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On pourra effectuer des divisions du type suivant en faisant NB(7)=1 : 


NCHERCHE+-N _ 
1 


Il faut pour cela ajouter au programme précédent : 





155 NB(7)=1 

290 DV(NV)=DV(NV)+1:1F DV(NV)<=7 THEN 220 
380 IF DV(NV)=7 AND AD(NV)= O THEN 290 
381 IF RF(NV)=1 AND DV(NV)=7 THEN 290 

382 IF NV>4 THEN 340 

385 IF RP(NV)=0 OR RP(NV)=1 THEN 440 

390 IF AD(NV)I<>0 THEN OC(AD(NV))=1 

400 IF DV(NV)I<>7 THEN OC(DV(NV))=1 


Le nombre de solutions augmente sensiblement mais le temps de recherche augmente 
aussi très nettement. Essayez de trouver 876 avec 50,8,7,4,83,25. 


On obtient : 25—-3=22 
22*8=176 
176—-7-=169 
169+50=219 
219*4=-876 
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JEU DE MARIENBAD 


RÈGLE DU JEU 


Quatre rangées contiennent 7, 5, 3, 1 allumettes. Chaque joueur doit prendre à tour de 
rôle des allumettes dans une seule rangée à la fois. Celui qui prend la dernière perd. 


1 [III 
LL 
il 
ed 


Un algorithme donne le nombre d’allumettes à prendre pour laisser un jeu perdant à 
l'adversaire : 


[e] 


© On convertit en binaire le nombre d'’allumettes de chaque ligne (dans une table 
BN(,)). 


© On effectue la somme de chaque colonne de la table BN(,). 


JEU( ) BN(CL,C) 





SM( ) 


Tous ces chiffres 
doivent être pairs 


0 Pour laisser un jeu perdant à l'adversaire, il suffit que les chiffres de toutes les 
colonnes de SM() soient pairs. 
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10 ” JEU DE MARIENBAD 

20 ‘ 

30 ” 

40 ‘ SI VOUS COMMENCEZ ,VOUS PERDEZ 
90 ‘ 


b0 MODE 2:PAPER O:PEN 1:INK O,0:INK 1,26 
70 JEU(1)=7:JEU(2)=5 
80 JEU(3)=3:JEU(4)=1 
90 ‘ 
100 GOSUB 910 
110 ‘---- 
120 PRINT:PRINT "ESC 2 fois pour FIN":PRINT 
130 INPUT "Voulez vous commencer (D/N) "“;R$ 
140 JR=O:IF R$="0" OR R$="o" THEN JR=1i 
150 ‘ 
160 FP=0 ‘ fin de partie 
170 ” 
180 IF JR=1 THEN GOSUR 230:JR=1-JR 
190 IF FP=1ie THEN 70 
200 IF JR=O THEN GOSUB 350:JR=1-JR 
210 IF FP=1 THEN 70 
220 6OTD 180 
230 ‘z====ss=s=s222z====222=22 JOUEUR 
240 PRINT:INPUT "Quelle ligne ";L 
250 INPUT "Combien "3;N 
260 
270 IF N>JEU(L) OR N<=0 
THEN PRINT:PRINT "Vous trichez":PRINT:PRINT:GOTO 240 
280 JEU(L)=JEU(L)-N 


290 
300 GOSUB 910 " affichage partie en cours 
310 GOSUB 980 " fin de partie? 


320 IF S=1 THEN PRINT:PRINT:PRINT "Vous avez gagne":FPz=1 
330 RETURN 

340 ‘========2==2=22=2=2=2==222=2==2===22=2=2= MACHINE 

350 FOR L=1 TO 4 

360 X=JEU(L):GOSUR 700 


370 NEXT L 

380 ‘ 

390 ‘=------ << RECHERCHE JEU GAGNANT 

400 FOR L=i TD 4 " 4 lignes 

410 FOR N=1 TO JEU(L) ‘ on essaie d'en prendre 1 a JEU(L) 


420 IF JEU(L)=0 THEN 480 
430 X=JEU(L)-N:GOSUB 680 


440 GOSUB 760 ‘ sommation colonnes 

450 IF GN=i THEN 550 

460 NEXT N 

470 X=JEU(L):GOSUR 680 " retabliss. ligne binaire de B{,) 
480 NEXT L 

490 ‘----------------- PAS DE SOLUTION GAGNANTE 


900 FOR L=i TO 4 
910 IF JEU(L)>0 THEN N=1:G0T0 550 
920 NEXT L 


530 
J40 
990 
9360 


570 
580 
390 
800 
610 
620 
630 
b40 
650 
660 
670 


680 ‘ 


690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
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STOP 

IF SM(1)€>0 OR SM(2)€>0 THEN 610 

IF SM(0)=2 AND N=JEU(L) AND JEU(L)>1 
THEN N=JEU(L)-1:G60T0 610 

IF SM(0)=4 THEN N=JEU(L):G0TO 610 

IF SM(0)=2 THEN N=JEU(L):G0OT0 610 

IF SM(0)=0 AND N>i THEN N=JEU(L)-1 


PRINT:PRINT "Je joue: ligne:";Ll;" J'en prends:"iN 


JEU(L)=JEU(L)-N 

GOSUB 910:G60SUB 980 

IF S=1 THEN PRINT:PRINT "J'AI GAGNE ":PRINT:FP=1 
RETURN 

‘—----CV BINAIRE 

ENTREE:X,L SORTIE:REMPLIT EN(L,) 


FOR P=2 TO 0 STEP-1 
BN(L,P)=INT(X/(2"P)+0.01) ‘ “2fleches haut 
X=X-BN(L,P)#(2"P) 
NEXT P 
RETURN 
fm SOMMATION COLONNES 
FOR C=2 TO 0 STEP-1 
S=0 
FOR Li=1 TO 4 
S=S+BN(L1,C) 
NEXT LI 
SM(C)=S 
NEXT C 


GN=0 
FOR C=2 TO 0 STEP-1 

IF INT(ISM(C)/2)<> SM(C)/2 THEN GN=0:RETURN 
NEXT C 
GN=1 
RETURN 

Pan DESSIN PARTIE 
PRINT 
FOR L=1 TO 4 

PRINT L;SPC(2); 

PRINT STRING#(JEU(L),"I") 
NEXT L 
PRINT:RETURN 

RS FIN DE PARTIE? 
S=0:FOR L=1 TO 4:S=S+JEU(L):NEXT L:RETURN 
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JEU DE MARIENBAD 
PAR APPRENTISSAGE 


Nous proposons le jeu de Marienbad mais, cette fois-ci, la machine apprend à jouer en 
“imitant” son adversaire. Pour la première partie, la machine prend une allumette dans 
une rangée quelconque. Dans deux tables LUI() et J() sont stockés tous les jeux de la 
partie. 








Jeu en cours 
A la fin de la partie nous cumulons les jeux de la partie achevée dans deux tables. 


TJ() G() 








Récapitulatif Gains 
des jeux 


Dans une table des gains G(), nous faisons +1 si la partie a été gagnée et —1 si elle a 
été perdue. Ainsi, pour les jeux suivants, la machine consulte ces tables pour chercher 
des configurations gagnantes. 


Au fur et à mesure des parties, la machine dispose de plus en plus de configurations 
gagnantes. Elle doit jouer de mieux en mieux, surtout si son adversaire joue bien. 


Pour tester le programme, iaissez-le commencer la partie la première fois et gagnez la 
partie. Commencez la seconde partie (comme lui) et il jouera comme vous aviez joué 
lors de la première partie et gagnera lui aussi. 
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 APPR JEU DE MARIENBAD PAR APPRENTISSAGE 


DIM TJ(300),6(300) ,J (30) ,LUI (30) 

MODE 2:PAPER O:PEN 1:INK O,0:INK 1,24 
JEU(1)=7:JEU(2)=5 

JEU(3)=3:JEU(4)=1 


GOSUB 670 

PRINT:PRINT "ESC 2 fois pour stopper ":PRINT 
INPUT "Voulez vous commencer (O/N) ";R# 
JR=0:IF R$="0" OR R$="o" THEN JR=1 


FP=0:COUP=0 


IF JR=1 THEN GOSUR 210:JR=1-JR 

IF FP=1 THEN GOSUB 970:GO0T0 50 

IF JR=O THEN GOSURB 350:JR=1-JR 

IF FP=1 THEN GOSUB 970:6G0OT0 50 

GOTO 160 
sssssssszssz=2s2=s2s2s==s==222=22=2====22== JOUEUR 
INPUT “Quelle ligne ";L 

INPUT "Combien ";N 


IF NoJEU(L) OR N€=0 THEN PRINT:PRINT "Vous trichez ":PRINT:G 
220 


JEU(L)=JEU(L)-N 


GOSUB 790:G0SUB 920 

GOSUR 670 * Affichage partie en cours 

GOSUB 730 ‘ Fin de partie? 

IF S=1 THEN PRINT:PRINT "Vous avez gagne ":FP=1:6=-1 


IF S=0 THEN PRINT:PRINT "J'ai gagne ":FP=1:6=1 


RETURN 

‘sssszssssszsssssz=sses2==s==2===== MACHINE 
MCOUP=0 

PSS sepssssss RECHERCHE DANS TABLE DES JEUX 
IF TJ(1)=0 THEN N=1:60T0 620 


FOR LL=1 TO 4 
FOR NN=1 TO JEU(LL) " On essaie d'en prendre NN 
SJ=JEU(LL) " Sauvegarde ligne modifiee 
JEU(LL)=JEU(LL)-NN:GOSUR 790 
FOR J=1 TD 200 ” Recherche config gagnante 
IF TJ(J)=0 THEN 470 
IF JCOD<>TJ(J) THEN 460 
IF 6(J)>MCOUP THEN MCOUP=6 (9) :NJ=NN:PL=LL 
NEXT J 
JEU(LL)=SJ 
NEXT NN 
NEXT LL 
IF MCOUP=0 THEN 620 
L=PL:N=NJ 


PRINT:PRINT "J'en prends:";N;" Ligne "il 
JEU(L)=JEU(L)-N 


0 GOSUR 790:GO0SUR 920 
0 GOSUB 670 


GOSUR 730 

IF S=1 THEN PRINT:PRINT "J'ai gagne ":PRINT :G=1:FP=1 

IF S=0 THEN PRINT:PRINT "Vous avez gagne":FRINT:G6=-1:FF=1 
RETURN 


112 | BASIC AMSTRAD 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1050 
1040 
1050 
1060 
1070 


HR PAS DE SOLUTION EN TABLE 
L=INT(RND(1)#4)+1 ‘ ligne au hasard 
IF JEU(L)<C1 THEN 620 
N=INT(RND(1)#JEU(L))+1 

60T0O 530 

De ee Ce EE 3 DESSIN PARTIE 

PRINT 

FOR L=1i TO 4 

PRINT L;STRING$(JEU(L) ,"1"*) 

NEXT L 


mms FIN DE PARTIE? 


FOR L=1 TO 4 
S=5+JEU(L) 
NEXT L 
RETURN 
RÉCENTS SES eee CONVERSION JEU() --} JEU CODE 
FOR J=1 TO 4:X(J)=JEU(J):NEXT J 
“ess: tri 
IV=0 
FOR J=1 TO 3 
IF X(J+1)CX(J) THEN X=X(J):X(J)=X(J+1):X(J+1)=X:IV=i 
NEXT J 
IF IV=1 THEN 810 


JCOD=0 

FOR J=1 TO 4 

JCOD=JCOD+X(J)#10"(J-1) © fleche haut 
NEXT J 
RETURN 

fRRSESS Se SResSeSs MAJ TABLE JEU ACTUEL 
COUP=COUP+1:9J (COUP) =JCOD 
LUI (COUP) =JR 

RETURN 

RP NET R ER MAJ FIN DE PARTIE 

FOR K=1 TO COUP 

X=J (K) 

FOR J=1 TO 300 


IF TJ(J)=0 THEN TJ(J)=X 

IF X=TJ(J) THEN 1040 

NEXT J 

IF LUI(K)=1 THEN G(J)=G(J)-6 
IF LUI(K)=0 THEN G(J)=6(9J)+6 
NEXT K 
RE TURN 
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JEU DE LA VIE 


CONWAY a imaginé le “jeu de la vie”. Des cellules se reproduisent ou meurent en 
fonction de leur juxtaposition. 


LES RÈGLES SONT LES SUIVANTES 


à Chaque point entouré par trois cellules donne lieu à une naissance. 
0 Chaque cellule entourée de quatre cellules ou plus meurt (étouffement). 
0 Chaque cellule entourée par moins de deux cellules meurt (isolement). 


Naissance 





Ce point est 
entouré par 
trois cellules 


Mort 





Ce point est entouré 
par quatre cellules 
ou plus 


FE 
DO 1 | 
me T7 
—> > 
Less == 
1 1 ! 
ui I 


Génération 0 Génération 1 Génération 2 
PREMIÈRE MÉTHODE 
Nous appliquons directement le principe énoncé. Pour chaque point nous considérons 


les points voisins. Nous positionnons à 1 les éléments d'une table VN(X, Y) lorsqu'il y a 
naissance, puis nous affichons le contenu de la table. 








TABLE VA() 1 |] 111 TABLE VN() 
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DEUXIÈME MÉTHODE 


La première méthode présentée est très lente puisque pour chaque point, nous explo- 
rons systématiquement ses huits points voisins. Sachant que seuls les points allumés 
peuvent provoquer une naissance ou une mort dans leur voisinage, nous procédons 
ainsi : 

© Pour chaque point allumé, nous augmentons de un les huit points voisins. 


TABLE VN(X, Y) 





Q Nous explorons la table VN(X,Y) et allumons tous les points totalisant trois (nais- 
sance). Nous éteignons tous les points supérieurs à quatre. 


TROISIÈME MÉTHODE 
De façon à ne s'intéresser qu'aux points allumés nous ajoutons deux tables XX() et 


YY() “pointant” vers les cellules en vie. Ainsi, le temps de traitement est notablement 
réduit ; il est indépendant de la dimension de la table V(X,Y). 











Pointeurs 
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Voici un exemple d'exécution : 


Vous entrez la génération de départ ligne par ligne. Ci-dessous vous appuyez sur 
ENTER pour les cinq premières lignes. Pour la sixième, vous entrez 11 “*” puis vous 
appuyez sur ENTER. 


Les générations successives sont affichées toutes les deux minutes pour “VIE1” et 
toutes les dix secondes pour “VIE3”. 


LLLELSILLLELS) 


LERSLLLSLSE SZ) 


NN 9 9 DJ 9 I I IJ JO -J -J 


Entrer les positions pour chaque ligne 


Ex: ELLES SE) (puis ENTER) 
GENERATION 8 GENERATION 30 
# + # + 
KO # + 
KO + * + 
KO KX XX + 
# # 
ÉEZ # * 
#+ ++ 
HE À # #4 
# # + # 
# OX + + # + 
* # 
# * 
La L: # x 
HO + + * + OH #X + 
+ + + + # + + +? 
+ + + ++ # *x + # 
+ ++ * # + + 


116! 


190 

20 

30 

40 

50 

60 

79 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
3230 
340 
350 
360 
3570 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
5900 
910 
520 
930 


BASIC AMSTRAD 


JEU DE LA VIE NO ! 


DEFINT A,2 


MODE 2:PAPER O:PEN 1:INK O,1:INK 1,24 
Xi=2:X2=30 ‘ bornes territoire 
Y1=2:Y2=20 

DIM VA(X2+1,Y2+1) " ancienne generation 
DIM VN(X2+1,Y2+1) " nouvelle generation 


LOCATE X1+1,Y1-1:PRINT STRINGS$(X2-X1,"-") 
LOCATE X1+1,Y2+1:PRINT STRING$(X2-X1,"-") 


rie De dr er ie SAISIE 
LOCATE 1,24:PRINT "Entrer les positions pour chaque ligne" 
LOCATE 1,25:PRINT "Ex: *####xx (puis ENTER) ou ENTER" 


FOR Y=Y1 TO Y2 
LOCATE X1-1,Y 
LINE INPUT "?",LI16# 
FOR X=X1 TO X2 
IF MID$#(LIG$,X,1)="#" THEN VAIX,Y)=1 
NEXT X 
NEXT Y 
GOSUB 460 
lÉRESSEeRS Ses Remplissage table VN({) 
FOR Y=Y1 TO Y2 
FOR X=X1 TO X2 
VNIX,Y)=0:TV=0 
FOR DY=-1 TO 1 ° 8 points autour du point X,Y 
FOR DX=-1 TO i 
IF DX=0 THEN IF DY=0 THEN 310 
IF VA(X+DX,Y+DY)=1 THEN TV=TV+1 
NEXT DX 
NEXT DY 
IF TV>=4 THEN VNIX,Y)=0:GO0OTO 360 
IF TV=3 THEN VN(X,Y)=1 
IF (TV=2 OR TV=3) AND VAIX,Y)=1 THEN VN(X,Y)=1 
NEXT X 


sers transfert VN() -->VA() 
GN=GN+1 
FOR Y=Y1 TO Y2 

FOR X=X1 TO X2:VA(X,Y)=VN(X,Y):NEXT X 
NEXT Y 
GOSUR 460 

GOTO 240 

rasée sSsnesssss AFFICHAGE 

CLS 
FOR Y=Yi1 TO Y2 

FOR X=Xi1 TO X2 

IF VAIX,Y)=1 THEN LOCATE X,Y:PRINT "+#": 

NEXT X 
NEXT Y 
LOCATE 20,1:PRINT "GENERATION ":;GN 
RETURN 


90 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


490 
500 


510 
320 


JEU DE LA VIE NO 3 
DEFINT À,2 
MODE 2 
Xi=2:X2=50 ‘ bornes 
Y1=2:Y2=22 
DIM VA(X2+1,Y2+1) ‘ ancienne generation 
DIM VN(X2+1,Y2+1) ‘ nouvellle generation 
DIM XX(1000),YY(1000),X1(1000),Y1(1000) 


secs Saisie 


LOCATE X1+1,VI-1:PRINT STRING#(X2-X1,"-") 
LOCATE X1+1,Y2+1:PRINT STRING$(X2-X1,"-") 
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LOCATE 1,24:PRINT "Entrer les positions pour chaque ligne" 


LOCATE 1,25:PRINT "Ex: RHRHEREX 
N=0 
FOR Y=Y1 TO Y2 
LOCATE X1-1,Y 
LINE INPUT "?",LIGS$ 
FOR X=X1 TO X2 
IF MID$(LIG#,X,1)="x" 


(puis ENTER) 


ou ENTER" 


THEN VAUX,Y)=1:VN(X,Y)=3:NC=NC+1: XX (NC) =X: YY (NC) =Y 


NEXT X 
NEXT Y 
CLS 
GOSUR 400 
FOR N=1 TO NC 
X=XX CN): Y=YY (N) 
FOR DY=-1 TO ! 
IF Y+DY<Y1 OR Y+DY>Y2 THEN 340 
FOR DX=-1 TO 1 
IF X+DX<X1 OR K+DX>X2 THEN 330 
VNCX4DX ,Y+DY)=Vn(X+DX, Y+DY)+1 
NEXT DX 
NEXT DY 
NEXT N 
GN=GN+1 
GOSUB 390 
G0TO 260 
fn AFFICHAGE 


FOR N=1 TO NC 
XX=XX(N):YY=YY UN) 
FOR DY=-1 TO 1 
FOR DX=-1 TO 1 
X=XX+DX: Y=YY+DY 
IF VN(X,Y)=0 THEN 540 
IF VN(X,Y)<=2 


THEN LOCATE X,Y:PRINT CHR$(32):VA(X,Y)=0:GOTO 540 
IF VN(X,Y)=3 THEN LOCATE X,Y:PRINT "#":VA(X,Y)=1:GOTO 530 


IF VNIX,Y)2>=5 


THEN LOCATE X,Y:PRINT CHR$(32):VA(X,Y)=0:GOTO 540 


IF VA(X,Y)=1 AND VN(X,Y)=4 THEN 530 


GOTO 540 
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930 NI=NI+I: XI CNT) =X: YICNI)=Y 

340 VN(IX,Y)=0 

930 NEXT DX 

960 NEXT DY 

9/70 NEXT N 

580 NC=Ni 

590 FOR N=1 TO NC: YY(N)=YI(N):XX(N)=XICN):NEXT N 
600 LOCATE 30,1:PRINT "GENERATION ";GN 

610 RETURN 


OBSTACLE 


Un point se déplace à travers des obstacles. Vous devez adapter la direction à l'aide 
des flèches pour éviter les obstacles. 


QUE POINTS 











Utilisez les fleches 
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19 ” OBSTACLE 
20 ‘ 
30 MODE 1 


40 INK 0,0:INK 1,26 
930 INPUT "NIVEAU (1,2,3 (9 pour fin)) "3;NV 
60 IF NV=9 THEN END 


70 CLS 
80 LOCATE 1,24:PRINT "Utilisez les fleches" 
90 -=rees CADRE 


100 XD=20:XF=500 

110 YD=40:YF=350 

120 PLOT XD,YD,1:DRAW XF,YD 

130 DRAW XF,YF:DRAW XD,YF:DRAW XD,YD 
140 

150 ‘----- OBSTACLES 

160 FOR P=1 TO (NV+1)#20 

170  X=RND#(XF-XD)+XD 

180 Y=RND#(YF-YD)+YD 

190 PLOT *,Y,1 


200 NEXT P 

DO. esse ess esse COORDONNEEES DEPART 

220 X=200+RND#10:Y=200+RND#10:IF TEST(X,Y)<>0 THEN 220 
230, “srpesssess-s ATTENTE DEPART 


240 C$=INKEYS$ 

250 IF LEN(C#)<>Q THEN GOSUR 300:G0OT0 379 
260 PLOT X,Y,1 

270 PLOT X,Y,0 

280 GOTO 240 

LOT ESS Actualisation X,Y 
300 C=ASC(C#) 

310 IF C=242 THEN DX=-2:DY=0 
320 IF C=243 THEN DX=2:DY=0 

330 IF C=241 THEN DX=0:DY=-2 
340 IF C=240 THEN DX=0:DY=2 

350 RETURN 

360 ‘------ 

370 P=0 

380 ‘ 

390 C$=INKEYS#:IF LEN(C$#)<30 THEN G6OSUB 300 
400 P=P+1 

410 X=X+DX:Y=Y+DY 

4209 IF TEST(X,Y)<>0 THEN 470 
430 PLOT X,Y,1 

440 FOR TP=1 TO 3O-NV#3:NEXT TP 
450 GOTO 390 

460 ‘----- 

470 PRINT CHR$#(7); 

480 LOCATE 1,2:PRINT P;"POINTS" 
490 FOR TP=1 TO 2000:NEXT TP 
9300 G60TO 30 
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MÉTÉORITES 


Vous déplacez une soucoupe avec les flèches <— — à travers des météorites. 


190 ‘-------- METEORITES 

20 MODE 1:PAPER O:PEN 1! 

30 INK 0,26:INK 1,0 

40 PRINT "Fleches <- et -} / ESC 2 fois pour fin" 
90 FOR TP=1 TO 2000:NEXT TP 


60 CLS:F=0 

70 XV=15:YV=3 " position vehicule 
80 C=145:SYMBOL AFTER C 

90 SYMBOL C,8,8,28,127,28,34,65,0 " dessin etoile 

100 FOR L=1 TD 10900 

110 AX=XV:AY=YV " ancienne position 
120 IF INKEY(1)=0 THEN IF XV<33 THEN XV=XV+1 ‘ droite 

130 IF INKEY(8)=0 THEN IF XV>2 THEN XV=XV-1 " gauche 

140 X=RND(1)#352+1:LOCATE 1,25 

150 PRINT TAR(X) CHR$(C) TAB(X+2) CHR$(C) " 2 etoiles 
160 PRINT " scrolling 


170 IF TEST((XV-1)#16+8,:99-(YV)#16+8)<>0 THEN F=i: 
PRINT CHR$(7);:FOR TP=1 TO 1000:NEXT TP ‘ collision? 


180 
190 LOCATE AX,AY-1:PRINT CHR#(32) " effacement vehicule 
200 LOCATE XV,YV:PRINT CHR$(231) ‘ nouvelle position 


210 IF F=1 THEN LOCATE 1,23:PRINT "Score:":;L:6OTO 240 
220 NEXT L 

230 

240 FOR,TP=1=1 TO 3O00:NEXT TP:G60T0 60 


# 
ke À nm + —> 
Ah 
A 
FE : 
A À 
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CASSE-BRIQUES 


Vous faites rebondir une balle à l’aide d’une raquette que vous déplacez avec les 
flèches gauche et droite. La balle détruit les briques sur son passage. 


La fonction INKEY() permet d'obtenir un déplacement de la raquette sans délai de 
répétition (comme avec INKEY$). 


l V XD 





ss Eee 
Fleches vour raauette G9 POINTS 
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JOVPSRSRSSSSSS CASSE BRIQUES 

20 MODE 1:PAPER O:PEN 1! 

30 INK 0,26:INK 1,0:INK 2,6 

40 INPUT "Niveau «1 52,3)(9 pour fin) ";NV 
30 IF NV=9 THEN END 


GO: :'==-=Sssesse dessin terrain 
70 MODE ii 
BQ XD=1B8+NV+x2 " bornes 


99 XG6=2:YB=2:YH=21 

100 LOCATE 1,23:PRINT "Fleches pour raquette" 

110 FOR X=XG6 TO XD:LOCATE X,YB:PRINT CHR$(143):NEXT X 

120 FOR Y=YB TO YH-i 

130 LOCATE XG,Y:PRINT CHR$(143):LOCATE XD,Y:PRINT CHR$(143) 
140 NEXT Y 

150 PEN 2 

160 FOR Y=YBR+1 TO YB+5 

170 FOR X=XG+1 TO XD-1:LOCATE X,Y:PRINT CHR#(143):NEXT X 
180 NEXT Y 


190 PEN 1! 

200 ‘-- 

219 6C=0 " score 

220 RO$=CHR# (32) +CHR$ (143) +CHR# (143) +CHR$ (143) +CHR$ (32) 
230 DX=1:DY=-1 ‘ deplacement 

240 XL=5+INT(RND(1)#5):YL=10 ‘ balle 

230 XR=10:VYR=YH ‘ raquette 

260 LOCATE XR-1,YR:PRINT RO$ 

270 ESS sEse RS see deplacement balle 

280 LOCATE XL,YL:PRINT CHR#(32) " effacement balle 
290 XL=XL+DX:YL=YL+DY " nouvelle position 
300 IF YL=YB+6 THEN  YL=YL+INT(RND#2)*xDY 

310 


320 IF TEST((XL-1)#16+1,399-(YL-1)#16)€>0 THEN SC=SC+1 

330 LOCATE XL,YL:PRINT CHR#(231) 

340 LOCATE XL,YL-1 

350 IF YL>YB+1 THEN IF TEST((XL-1)#x{16+1,399-(YL-2)#16)€:0 
THEN PRINT CHR$(32):SC=SC+1 

360 IF XL>=XD-1 THEN DX=-DX ‘ rebonds 

370 IF YL<=YB+1 THEN DY=-DY 

380 IF XL£=XG+1 THEN DX=-DX 

390 ‘ 

400 IF XL>XR-2 AND XLEXR+4 AND YLYR-2 THEN DY=-DY 

410 ‘ 

420 IF YLÈ=YR OR (XD-XG-1)#5=SC THEN 490 

SO d'éneressssssnsessesscss deplacement raquette 

440 IF INKEY(1)=0 THEN IF XR£XD-3 THEN XR=XR+I 

450 IF INKEY(B8)=0 THEN IF XR>XG+1 THEN XR=XR-1 

460 LOCATE XR-1,YR:PRINT RO$ 

470 GOTO 289 

480 ‘ 

490 LOCATE 30,23:PRINT SC:"POINTS" 

500 FOR TP=1 TO 4000:NEXT TP 

910 GOTO 20 
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GLOUTONS 


Trois gloutons vous poursuivent ; en vous déplaçant avec les flèches vous les attirez 
dans des pièges. 


Les coordonnées des gloutons sont placées dans des tables XM() et YM(). Pour mettre 
à jour ces coordonnées nous calculons leurs positions par rapport à la vôtre. 


Les dessins des gloutons sont définis dans deux instructions SYMBOL. 


Grâce à la fonction INKEY() il n'y a pas de délai de répétition pour le déplacement avec 
les flèches. 


UTILISER LES FLECHES 
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19 ” GLOUTONS 

20 ” 

30 MODE 1:PAPER O:PEN 1:INK O,1:INK 1,24 

40 LOCATE 1,25:PRINT "UTILISER LES FLECHES / FIN:ESC 2 FOIS" 
950 SYMBOL AFTER 145 


69 SYMBOL 145,120,188,254,63,65,254,252,120 ‘ glouton pos 1 
70 SYMBOL 146,30,61,127,252,252,127,63,30 ‘ glouton pos 2 
80 M=0 ‘ gloutons morts 


90 XC=18:YC=12 ‘ vos coordonnees 

100 LOCATE XC,YC:PRINT "O* 

110 ‘----------- 

120 FOR J=1 TO 3 

130 XM(J)=INT(RND(1)#38)+1:IF ABS(XM(J)-XC)€8 THEN 130 
140 YMIJ)=INT(IRND(1)#25)+1:IF ABS(YM(J)-YC)<B THEN 140 
150 LOCATE XM(J),YM(J):1F XM(J)>XC THEN PRINT CHR$(145) ELSE PRI 
NT CHR$(146) 

160 LOCATE RND(1)#7+XC,RND(1)#7+YC:PRINT CHR#(143) 

170 NEXT J 

180 FOR TP=1 TO 1000:NEXT TP 

190 ‘------------- 

200 FOR J=1 TO 3 

210 LOCATE XC,YC:PRINT CHR$(32) " effacement 

220 IF INKEY(1)=0 THEN IF XC<38 THEN XC=XC+1 

230 IF INKEY(8)=0 THEN IF XC>1 THEN XC=XC-1 

240 IF INKEY(0)=0 THEN IF YC>1 THEN YC=YC-1 

250 IF INKEY(2)=0 THEN IF YC<24 THEN YC=YC+i 


260 LOCATE XC,YC:PRINT "O0" ‘ nouvelle position 

279 ‘ 

280 IF XM(J)=0 THEN 400 

290 LOCATE XM(J),YM(J):PRINT CHR$(32) " effacement glouton 
300 XM(J)=XM(J)-(SGN(XM(J)-XC)) " maj position glouton 
310 YM(J)=YM(J)-(SGN(YM(J)I-YC)) 

320 ‘ --test piege 


330 IF TEST((XM(J)-1)#16+1,399-(YM(J)-1)#16)=0 THEN 360 
340 XM(J)=0:YM(J)=0:M=M+1:GOTO 390 
390 ‘-- test devore 
360 X1=XM(J):YI1=YM(J) 
370 LOCATE X1,Y1:1IF X12>XC 
THEN PRINT CHR$(145) ELSE PRINT CHR$(146) 
380 IF X1=XC AND Y1=YC THEN LOCATE 1,23:PRINT "“PERDU":GO0TO 430 
390 IF M=3 THEN LOCATE 1,23:PRINT "GAGNE":GOTO 430 
400 NEXT J 
410 GOTO 200 
420 ‘--- 
430 FOR TP=1 TO 3000:NEXT TP 
440 GOTO 30 
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BIORYTHMES 


Il'existerait chez l'homme des périodes “positives” et des périodes “négatives” réglées 
par des “horloges internes” indépendantes de l'environnement extérieur. 


PET TK Positif 








23 jours 28jours 33 jours 


# 
bed Négatif 





Jour de 
naissance 






Cycle physique 


cle émotionnel _ 
Cycle intellectuel 


Il y aurait trois types de cycles : 


o Cycle physique de 23 jours. 
o Cycle émotionnel de 28 jours. 
Oo Cycle intellectuel de 33 jours. 


On pourrait ainsi connaître à l'avance les jours favorables. 





Noix: phusique 
Bleu: emotionnme l 
Rouge:intellectuel 
ee ” ne 
L “3 





qe (x 
io 153 16 19 2é 85 Ee8. 31 
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10 ‘  RIORYTHME 

20." 

30 MODE 2:PAPER O:PEN 1:INK 0,26:INK 1,0 

40 DIM A(12),JM(12) 

50 

60 DATA 31,28.5,31,30,31,20,31,31,30,31,30,31 
70 FOR M=1 TO 12 

80 A(M)=A(M-1):READ X:A(M)=A(M)+X:JM(M)=X 


90 NEXT M 
100 CP=23:CE=28:CI=33 " Cycles physique/Emot./Intel. 
110 : 


120 PRINT "NAISSANCE: ":PRINT 

150 INPUT "Jour ,Mois,Annee (ex:5,4,1984) ";JN,MN,AN 
140 IF AN<1900 OR AN1999 THEN 130 

150 J=JN:M=MN:A=AN:GOSUB 230: XV=JV 

160 ‘ 

170 PRINT:PRINT "RIORYTHME'":PRINT 

180 INPUT "Mois,An (ex:7,1985) ";MB,AB 

190 IF AB<1900 OR AB>1999 THEN 180 

200 J=1:M=ME:A=AE:GOSUB 230: NJOUR=JV-XV 

219 GOTO 270 

220 ‘-------- calendrier 

230 N=365.25#(A-1901)+A(M)+] 

240 JV=INTIN) 

250 RETURN 

260 ‘----------- Affichage courbes 

270 MODE 1:INK 0,26:INK 1,0:INK 2,20:INK 3,6 

280 TAGOFF:LOCATE 1,2:PEN 1:PRINT "Noir: physique" 
290 LOCATE 1,3:PEN 2:PRINT "Bleu: emotionnel" 

300 LOCATE 1,4:PEN S:PRINT "Rouge:intellectuel":PEN 1 
310 PLOT 10,200:DRAWR 10+16#31,0,1 " Axe 
320 C=CP:CL=1:GOSUR 420 

330 C=CE:CL=2:GOSUB 420 

340 C=CI:CL=::GOSUR 420 

350 FOR J=1 TO JM(MB)+1 STEP 3 

360 MOVE 10+(J-2)#16,190:TAG:PRINT J: 

370 NEXT J 

380 TAGOFF:LOCATE 1,22:PRINT "Jours vecus:";NJOUR 
390 LOCATE 1,23:PRINT "Naiss:";JN; MN; AN; "Bior:";MB; AB 
400 END 

410 ‘------ trace sinusoide 

420 PLOT 10,SIN(NJOUR#2#PI1/C)#100+200 

430 FOR D=1 TO JM(MB) 

440 P1=100#SIN((D+NJOUR) #2*PI/C) 

450 X=10+D#16:DRAW X,200+P1,CL 

460 NEXT D 

470 RETURN 
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PHRASE A COMPLÉTER 


Une phrase incomplète est affichée ; l'élève doit la compléter. 


Dans chaque ligne de DATA est définie la phrase incomplète suivie du mot manquant. 
Si les phrases contiennent des virgules ou des caractères spéciaux, elles doivent être 
placées entre des guillemets. 


10 ‘ COMPLETER UNE PHRASE 

20 ‘ 

30 MODE 2:PAPER O:PEN 1:INK 0,0:INK 1,26 

40 LOCATE 1,20:PRINT "COMPLETER LA PHRASE" 
90 DATA IL ETAIT UNE +#### DANS L'OUEST,FOIS 
60 DATA LUNDI MARDI ######## JEUDI,MERCREDI 
70 DATA # 

BO XA=1:YA=10 " Affichage 
90 ‘ 

100 READ LIG$:IF LIG$="+" THEN END 
110 READ MOT$ 

120 

130 P=INSTR(LIGS$,"#") " Recherche * 
140 COMPLETER LA PHRASE 
150 LOCATE XA,YA:PRINT SPC(40) 
160 LOCATE XA,YA:PRINT LIG$ 
170 PL=1 

180 ” 

190 LOCATE XA+P-1,YA:PRINT CHR$(143) ‘ curseur 

200 C$=INKEY$#:IF LEN(C$)<320 THEN 230 

210 GOTO 190 

220 ‘-- 

230 C$=UPPER$(C$) 

240 IF C$<>MID$(MOT$,PL,1) THEN PRINT CHR$(7):GOT0 190 
250 LOCATE XA+P-1,YA:PRINT C$ 

260 P=P+i 

270 PL=PL+1:IF PLDLEN(MOT$) THEN 100 

280 GOTO 190 


IL ETAIT UNE ### DANS L'OUEST 
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DICTÉE 


Un texte avec des mots incomplets est affiché. L'élève doit compléter les mots. 


Dans chaque ligne de DATA est définie la ligne à compléter suivie du caractère du mot 
incomplet. 


19 ‘  DICTEE 


20 

30 MODE !1 

4Q PAPER O:PEN 1:INK 1,0:INK 0,26 

90 ‘ 

60 DATA "QU'EST CE QUE SIG*IFIE APPRIVOISER" 5N 
70 DATA "DIT LE PxTIT PRINCE" 1 
BQ DATA "C'EST UNE CHOSE TROP OUBLIEE, 5* 
90 DATA "DxT LE RENARD" 1 
106 DATA "CA SIxNIFIE CREER DES LIENS." ,6 
110 DATA # 

120 Messe LECTURE DATAS DANS TABLE TXT#() 


130 DIM TXT$(100),C$(100) 
140 FOR L=1 TO 100 

150 READ TXT$(L):1F TXT#$#(L)="#" THEN NL=L-1:G0T0 190 

160 READ C#f(L) 

170 NEXT L 

LBQ == sesssressessesse AFFICHAGE TEXTE 

190 CLS 

200 LOCATE 1,20:PRINT "TU DOIS COMPLETER LES MOTS ‘ 

210 FOR L=1 TO NL 

220 LOCATE {,L:PRINT TXT$(L) 

230 NEXT L 

LRQ ERÉSSE=RSES SEE 

250 FOR L=1 TO NL 

26Q P=INSTR(TXT$(L),"x") " position lettre manquante 

270 IF P=G THEN 320 

280 LOCATE P,L:PRINT CHR#(143) 

290 C#=INKEY#:IF LEN(C#)=0 THEN 290 

300 IF UPPER$(C#)<>UPPER$(C$(L)) THEN PRINT CHR$(7)::GO0OT0 290 
310 LOCATE P,L:PRINT Cf 
320 NEXT L 

330 END 


QU'EST CE QUE Bee e APPRIVOISER 
DIT LE P+TIT PRI 


C'EST UNE CHOSE TROP OUBLIEE, 


D*T LE RENARD 
CA SI4NIFIE CREER DES LIENS. 
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MISE EN ORDRE D’UN MOT 


Un mot est affiché dans le désordre ; l'élève doit l'écrire en ordre. 
Les mots sont présentés dans l’ordre des DATA. Pour un affichage aléatoire, ajoutez : 


BO NM=4 * nombre de mots 

81 X=INT(RND(1)#NM) 

82 RESTORE:FOR J=1 TO X:READ MOT$#:NEXT J 
83 READ MOT$ 


10 MISE EN ORDRE D'UN MOT 

20 

30 MODE 1:PAPER O:PEN 1 

40 DIM T(12) * temoin 

950 DATA AMSTRAD,ECOLE , MAISON, BASIC 
60 DATA # 

70 ‘ 


80 READ MOT$ 

90 IF MOT$="#" THEN END 

100 L=LEN(MOT$#) 

110 CLS 

120 FOR P=1 TO 12:T(P)=O:NEXT P 

130 FOR N=1 TO L 

140 P=INT(RND(1)#L)+1:1F T(P)=1 THEN 140 
150 PRINT MID$#(MOT$,P,1); 


160 T(P)=1 
170 NEXT N 
180 ‘ 


190 PRINT:PRINT 

200 INPUT "MOT":M$ 

210 IF UPPER$(M$)=UPPER$(MOT$) THEN PRINT "BRAVO" 

220 IF UPPERS$(M$)<>UPPER$(MOT$) THEN PRINT "NON,C'EST:"; MOTS 
230 FOR TP=1 TO 2000:NEXT TP 

240 G6OTO 80 


DTRSAAM 


MOT? AMSTRAD 
BRAVO 
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MISE EN ORDRE D’UNE PHRASE 


Une phrase est affichée dans le désordre ; l'élève doit l'écrire dans l'ordre. 


La phrase est d’abord découpée en recherchant les espaces entre les mots. Les mots 
sont stockés dans une table M$() puis affichés dans le désordre. 


10 ‘ REMISE EN ORDRE D'UNE PHRASE 


20 

30 MODE 2 

40 CE=1:CF=0 " ecriture et fond 
90 INK 0,26:INK 1,0:PAPER O:PEN 1 

60 


70 READ L$:1F L$="*x" THEN END ‘ lecture d'une ligne de DATA 
80 LIG$=L$ 
90 GOSUR 230 


109 ‘------------- Affichage dans le desordre 

110 CLS 

120 FOR F=1 TO N 

130 P=INT(RND(I)xN)+1 " position au hasard 

140 IF LEN(M$(P))=0 THEN 130 

150 LOCATE 1,F:PRINT M$(P):M$(P)="" ‘ pas d'espace entre "" 
160 NEXT F 

179 


189 LOCATE 1,13:INPUT "Frappez la phrase en ordre ";PHR$ 

190 IF UPPER$(PHR$)=UPPER$(L$) THEN PRINT "OK " ELSE PRINT "Non 
c'est: ";L$ 

200 FOR TP=1 TO 2000:NEXT TP 

210 GOTD 70 


220 ‘=--s-=-222-se- DECOUPAGE PHRASE 
230 N=0:Y$="" " pas d'espace entre "" 
240 P=INSTR(ILIGS$,CHR$(32)) " recherche espace (chr$(32)) 


250 IF P=0 THEN N=N+1:M$(N)=LIG$:RETURN 
260 N=N+I:M#(N)=LEFT$(LIG$,P-1) 

270 LIG$=RIGHT$(LIG$,LEN(LIG#)-P) 

280 GOTDO 240 

290 "==> 

300 DATA LE PETIT CHAT RONRONNE 

310 DATA JE M'APPELLE AMSTRAD 

320 DATA * 


PETIT 
CHAT 

LE 
RONRONNE 


Frappez la phrase en ordre ? LE PETIT CHAT RONRONNE 
OK 
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LISTE A COMPLÉTER 


L'élève doit compléter une liste. 


19 : LISTE À COMPLETER 

20 ‘ 

30 MODE 2:INK 0,1:INK 1,24:PAPER O:PEN 1 

40 DIM AN$(100),C$(100) 

50 ‘ 

69 DATA LE CHIEN,AROIE 

70 DATA LE CHAT,MIAULE 

89 DATA LE MOUTON,BELE 

90 DATA LE CHEVAL,HENNIT 

100 ‘ 

110 DATA #,# 

120 ‘------------ lecture DATAS dans tables 
130 FOR J=1 TO 100 

140 READ AN$(J),C#$(J) 

150 IF AN$(J)="x" THEN NM=J-1:GO0T0 190 

160 NEXT J 

170 STOP 

180 ‘------------ Affichage 

190 CLS 

200 LOCATE 10,22:PRINT "Tu dois completer la liste" 
210 LOCATE 10,23:PRINT "ex: LE CHIEN ABOIE" 
220 FOR L=1 TO NM 

230 LOCATE 2,L:PRINT AN$(L) 

240 NEXT L 

250 ‘ 

260 FOR L=1 TO NM 

270 LOCATE 13,L:INPUT LIG$ 

280 IF UPPER$(C$(L))<>UPPER$(LIG$#) THEN PRINT CHR$(7):G60T0 270 
290 NEXT L 


LE CHIEN ? ABOIE 
LE CHAT ? MIAULE 
LE MOUTON ? RELE 
LE CHEVAL 7? 
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QUESTIONNAIRE 


Chaque ligne de DATA contient une question et l'ensemble des réponses possibles. 
Grâce à la fonction INSTR on vérifie que la réponse de l'élève appartient à l'ensemble 
des réponses possibles. 


10 ” QUESTIONNAIRE 

20 ‘ 

30 MODE 2:PAPER O:PEN :i 

40 

959 ‘ Question Reponses possibles 
60 ” 

70 DATA "Donnez un synonyme de DELAI","SURSIS REPIT PROLONGATION 
80 DATA "Capitale de 1'ESPAGNE", "MADRID" 

90 DATA "Capitale de la FRANCE ", "PARIS" 

190 DATA #*# 

110 ‘ 

120 


130 READ G$:1IF Q$="x" THEN END 

140 READ RP$ 

150 PRINT 

1609 PRINT 0$ " affichage question 
170 INPUT "Votre reponse ";Rf 

180 P=INSTR(UPPERS$(RP$) ,UPPER$ (R$)) 

190 IF P<>0 THEN PRINT:PRINT "OK" ELSE PRINT RP$ 
200 G6OTO 150 


Donnez un synonyme de DELAI 
Votre reponse ? REPIT 


DK 


QUID 
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Un ensemble de lignes d’information sont stockées en DATA. Le programme donne 


toutes les lignes contenant un mot clé cherché. 


10 ” QUID 

20*%* 

30 MODE 2:PAPER O:PEN 1:INK 0,0:INK 1,26 
40 ” 

99 DATA TOUR DE FRANCE 1979 HINAULT 

69 DATA TOUR D'ITALIE 1979 SARONNI 

70 DATA CHAMPIONNAT DU MONDE 1979 RASS 
80 DATA TOUR DE FRANCE 1980 HINAULT 

90 DATA TOUR D'ITALIE 1980 HINAULT 

1900 DATA CHAMPIONNAT DU MONDE 1980 HINAULT 
110 DATA TOUR DE FRANCE 1981 HINAULT 
120 DATA TOUR D'ITALIE 1981 BATAGLIN 
130 

140 DATA *# 

150 ‘ 

160 PRINT:INPUT "Mot cle (ou FIN)":M$ 
170 M$=UPPER$(M#):1F M$="FIN" THEN END 
180 ‘ 

190 RESTORE 

200 READ LIG$ 

210 IF LIG$="#" THEN 160 

220 P=INSTR(UPPERS$(LIG#) ,UPPERS$ (M#)) 
230 IF F<;O THEN FRINT LIG# 

240 GOTO 200 


Mot cle ? 1980 

TOUR DE FRANCE 1980 HINAULT 

TOUR D'ITALIE 1980 HINAULT 
CHAMPIONNAT DU MONDE 1980 HINAULT 


Mot cle ? HINAULT 

TOUR DE FRANCE 1979 HINAULT 

TOUR DE FRANCE 1980 HINAULT 

TOUR D'ITALIE 1980 HINAULT 
CHAMPIONNAT DU MONDE 1980 HINAULT 
TOUR DE FRANCE 1981 HINAULT 


Mot cle ? FRANCE 

TOUR DE FRANCE 1979 HINAULT 
TOUR DE FRANCE 1980 HINAULT 
TOUR DE FRANCE 1981 HINAULT 
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BASIC AMSTRAD 


ADDITION EN BASE B 


Deu 


x nombres choisis au hasard sont affichés ; l'élève doit donner pour chaque rang le 


total (sans la retenue) puis la retenue pour le rang suivant. La base et le nombre de 
chiffres peuvent être choisis. 


10 

20 

30 

40 

50 

60 

70 

89 

90 

100 
110 
120 
139 
140 
1590 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


BASE : 





ADDITION EN BASE ER 


MODE 1:FAPER O:PEN 1:INK O0,26:INK 1,0 
B=10 "” base 
NCH=4 * 4 chiffres 


XL=10:YL=10 ‘ AFFICHAGE 
rer Choix au hasard 
N1$="":N2$="" " pas d'espace entre "" 
FOR J=1 TO NCH 

X=INT(RND(1)+*B) 

Y=INT(RND(1)%#B) 


NIS=NIS+MIDS(STR#(X) ,2,1) 
N2#=N2$+MID$ (STR#(Y),2,1) 
NEXT J 

CLS 


LOCATE 1,3:FRINT "RASE:";R 
LOCATE XL,YL-3:PRINT N1$ 
LOCATE XL-1,YL-2:PRINT "+":N2$ 


LOCATE XL-2,YL:PRINT "=" 

M PÉSSS RS Reese rene Saisie resultats 
P=LEN(N1#$) 

RET=0 ‘ retenue 


IF P=0 THEN TR=RET:GOTO 290 
TR=VAL(MID#(N1$,P,1))+VAL(MIDS(N2$,P,1))+RET 


RET=INT(TR/R) 
RS=TR-RET+*E 


LOCATE 1,18:PRINT "TOTAL POUR LA COLONNE (SANS RETENUE)" 
LOCATE XL+P-1,YL:PRINT CHR$(143) 
LOCATE XL+P-1,YL 


350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


R$=INKEY$:IF LEN(R$)=0 THEN 350 


IF RS€ÈVAL(RS) THEN PRINT CHR$(7):GOTD 330 


PRINT R$ 


IF RET=0 THEN 480 


--Retenue de rang N+i 
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LOCATE 1,18:PRINT "ENTRE LA RETENUE POUR LA COLONNE" SPC(4) 
LOCATE XL+P-2,YL-4:PRINT CHR$(143) 


LOCATE XL+P-2,YL-4 


R$=INKEY#$:IF LEN(R#)=0 THEN 440 


IF VAL(R$S)CYRET THEN PRINT CHR$(7):G0T0 420 


PRINT R$ 


IF P=0 THEN 530 


IF P=1 AND RET=0 THEN 550 


P=P-1 
GOTO 260 


FOR TP=1 TO SOOO:NEXT TP 


GOTO 80 


JEU DU PENDU 


Vous devez retrouver un mot en proposant des lettres. Vous avez droit à sept erreurs. 


.BCDEFGH.JKL..OPGR.TUUN. TZ 





Quelle 


MAIS.N 


lettre 7 
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À chaque fois qu'une lettre est utilisée, elle est remplacée dans l'alphabet par le carac- 
tère “.”. Les mots sont présentés dans l'ordre des DATA ; on pourra les choisir au 
hasard en ajoutant : 


124 NM=5 ‘ nombre de mots 
125 X=INT(RND(I)+%NM) 
126 RESTORE:FOR J=1i TO X:READ MOT$#:NEXT J 


LU: JEU DU FENDU 

20 ‘ 

30 DATA MAISON,SAFIN,VELO,FATIN 
40 DATA AMSTRAD 


90 DATA # 

6û XM=12:YM=10 " affichage mot 

70 XA=2:VYA=2 ‘ affichage alphabet 
80 ‘- 

90 MODE 1:PAPER O:PEN 1:INK O0,26:INK 1,0 
100 ‘--- affichage alphabet 


110 FOR J=1 TO 26:LOCATE XA+J,YA:PRINT CHR$(64+J):NEXT J 

120 ‘ 

130 READ MOT$:MOT$=UPPERS$(MOT#):IF MOT#="#+" THEN END 

140 L=LEN(MOT#) 

150 ‘BPLibien places/PD:coups perdus /LU$:lettres deja utilisees 


160 BPL=0:PD=0:LU$="" " pas d'espace entre "" 
170 LOCATE XM,YM:PRINT STRING#(L,",") 
180 ” 


190 LOCATE 2,23: INPUT "Quelle lettre "iL$:L#F=UPPERS(L$) 
200 IF LEN(L#)=0 THEN 190 
210 P=INSTR(LU#,L#):IF F>0 THEN GOSUR 380:G0OT0 310 
22Q ‘---------------------- bonne lettre? 
230 IF ASC(L$#)€65 THEN 190 
240 B=0 
250 FOR P=1 TO L 
260 IF L$=MID$(MOT$,P,1) 
THEN B=1:LU$=LU$+L+$:BPL=RPL+1:GOSUR 340:GOSUB 3460 
270 NEXT P 
280 IF B=0 THEN GOSUB 280:GOSUB 360 
290 IF RPL=L THEN LOCATE 12,15:PRINT "BRAVO":FOR TF=1 TO 2000:NEX 
T TP:G60T0O 90 
300 ‘ 
310 IF PD>=8 THEN LOCATE 12,15:PRINT "PERDU .. LE MOT ETAIT: "3; MOT 
$:FOR TP=1 TO 2000:NEXT TP:GOTO 90 
320 GOTD 190 
330 ‘---------------- affichage mot 
340 LOCATE XM+P-1,YM:PRINT L$:RETURN 
390 ‘-------------- mise a jour alphabet 
360 LOCATE XA+ASC(L$)-64,YA:PRINT ".":RETURN 
370 ‘---------- coup perdu 
380 PD=PD+1:PRINT CHR$(7) 
390 ON PD GOSUR 410,420,430,440,450,460,470,490:RETURN 
400 ” 
410 PLOT 20,130,1:DRAW 40,130,1:RETURN 
420 PLOT 50,130,1:DRAW 30,290,1:RETURN 
430 PLOT 30,285,1:DRAW 75,285,1:RETURN 
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440 PLOT 30,265: DRAW 50,285:RETURN 
450 PLOT 75,285:DRAW 75,245: RETURN 

460 PLOT 65,245:DRAWR 20,0:DRAWR 0,-20:DRAWR -20,0:DRAWR 0,20:RET 
URN 

470 PLOT 75,225: DRAW 75,200 

480 PLOT 60,210:DRAW 90,210:RETURN 

490 PLOT 75,200:DRAW 60,170:PLOT 75,200:DRAW 90,170:RETURN 


DICTIONNAIRE FRANÇAIS/ANGLAIS 


Un dictionnaire français/anglais est stocké dans deux tables FR$() et ANGS$(). Les 
tables sont sauvegardées sur cassette ou disquette. 


FR$() ANG$() 


Ltit 





Un mode “recherche” donne la traduction d'un mot cherché. Vous pouvez placer dans 
chaque ligne des tables la liste des synonymes d'un mot. 


Un mode “interrogation” propose un mot au hasard et demande la traduction. Ce mode 
pourrait être amélioré en enregistrant dans une table les mots mal connus de l'élève 
afin de les proposer en priorité. 

Mode ? L 


LISTE DES MOTS 


LIVRE BOOK 

CHIEN DOG 

TRAVAIL WORK 

CHAT CAT 

BUREAU DESK 

JAMBE LEG 

BRAS ARM 

CALCULATEUR COMPUTER 

TETE HEAD 

RECHERCHE SEEK/SEARCH/RESEARCH 
ARRETER TO STOP/TO TERMINATE 
CHAMBRE ROOM 


APPUYER SUR ENTER ? +Break* 
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Mode ? INT 

TRAVAIL Traduction (ENTER pour fin) ? WORK 
DK 

RECHERCHE Traduction (ENTER pour fin) ? * 
Non c'est: SEEK/SEARCH/RESEARCH 


10 DICTIONNAIRE ANGLAIS/FRANCAIS 
20 

30 MODE 2:PAPER O:PEN 1:INK O,1:INK 1,24 
40 ‘ 

90 DIM FR#$(1000) ,ANG$(1000) 

b0 NFICH=0 

79 

80 INPUT "Nouveau fichier (O/N) ";R+# 

90 IF R$£>"0O" AND R$<>"o" THEN GOSUB 390 
100 ‘ 

119 CLS:PRINT "Modes:":PRINT 

120 PRINT "C: Creation" 

130 PRINT "R: Recherche" 

140 PRINT "L: Liste " 

150 PRINT "INT: Interrogation"" 

160 PRINT "FIN: Sauvegarde “ 

170 PRINT:INPUT "Mode ":;M$ 

180 M$=UPPER$ (M$) 

190 IF M$="C" THEN GOSUR 260 

200 IF M#$="FIN" THEN GOSUB 480:END 

210 IF M$="L" THEN GOSUR 560 

220 IF M$="R" THEN GOSUB 630 

230 IF M$="INT" THEN GOSUR 720 

240 GOTO 110 


250 ==zz=2=2z==22222====2===========2=====22= (CREATION 
260 PRINT:INPUT "Mot FRANCAIS ( ENTER pour fin) "3;X$ 
27Q IF LEN(X$)=0 THEN RETURN " fin de mode? 


280 FOR RANG=1 TO NFICH 

290 IF X$=FR$(RANG) THEN PRINT "Existe deja":GOTO 260 
300 NEXT RANG 

310 NFICH=NFICH+1 

320 RANG=NFICH 

330 FR$(RANG)=X$ 

340 

350 INPUT "Mot ANGLAIS ";v$ 

360 ANG$(RANG)=Y$ 

370 GOTO 260 

380 ‘===========222=2==2222=2=2=22== |[ECTURE FICHIER 
390 OPENIN "DICO" 

400 INPUT #9,NFICH 

410 FOR J=1 TO NFICH 

420 INPUT #9,FR$(J) ,ANGS#(J) 


4350 
440 
450 
460 
470 
480 
490 
9300 
310 
920 
930 
9340 
Joû 
360 
570 
380 
990 
600 
610 
b20 
630 
64û 
650 
660 
b70 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 


790 
800 


EDUCATION | 139 


NEXT J 
PRINT:PRINT NFICH;"MOTS":PRINT 
FOR TP=1 TO 2000:NEXT TP 


zzzzz=z==2=2z=22==2=====2==22== GANVEGARDE FICHIER 
OPENOUT "DICO" 
PRINT #9,NFICH 

FOR J=1 TO NFICH 

PRINT #9,FR#(J) 

PRINT #9,ANG#(J) 
NEXT J 


=sss=2======2===ss2=22222 LISTE 
PRINT:PRINT "LISTE DES MOTS":FPRINT 
FOR J=1 TO NFICH 
PRINT FR$(J),ANG$(J) 
NEXT J 
PRINT:INPUT "APFUVER SUR ENTER ":X$ 
RETURN 
ssssss=2=2ss=22=22=2===============2=2= RECHERCHE 
PRINT:INPUT "QUEL MOT (ou ENTER) ";X$ 
IF LEN(X$)=0 THEN RETURN 


FOR J=1i TO NFICH 

P=INSTR(UPPER$S(FR#(J)) ,UPPER#(X#)) 

IF Pé}O THEN PRINT: PRINT FR$(J),ANG#(J) 
NEXT J 


====2==22==222==2= [NTERROGATION ALEATOIRE 
X=INT(RND(1)#NFICH)+1 
MOT$=FRS(X) 
PRINT 
PRINT MOT#;SPC(1)3;:INFUT "Traduction (ENTER pour fin) ";X+# 
IF LEN(X$)=0 THEN RETURN 
P=INSTR(UPPERS$ (ANG#(X)) ,UPPERS$(X$) ) 
IF P<>0 THEN 

PRINT:PRINT "OK" ELSE PRINT:PRINT "Non c'est: ";ANG$(X) 
GOTO 720 


810 ‘ 


820 


850 : 


840 


850 ‘ 


860 
870 


Les recherches peuvent s'effectuer en majuscules ou 
minuscules. 

Pour eviter d'entrer en minuscules des mots 

deja dans le fichier en majuscules,faire: 


290 IF UPPER$(X$)=UPPER$ (FR$ (RANG) ) 
THEN PRINT "Existe deja":G60T0 260 


880 ‘ 


890 
900 
910 


On pourra egalement ‘normaliser' les mots 
en majuscules avant de les placer dans le fichier: 
330 FR$(RANG)=UPFER#(X#) 
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CONSEILS 
DE LECTURE 


Pour approfondir vos connaissances en BASIC Amstrad et mieux connaître le système 
des CPC 464, 664 et 6128, P.S.I. vous propose une palette d'ouvrages utiles. 


POUR MAITRISER LE BASIC AMSTRAD 


D 


BASIC Amstrad, CPC 464, 664 et 6128 - 1. Méthodes pratiques, par 
Jacques Boisgontier et Bruno Césard (Editions du P.S.I.) : 

Pour ceux qui ont déjà pratiqué un BASIC, voici un ouvrage de perfectionnement au 
BASIC Amstrad. Un chapitre sur le CP/M 2.2 et le CP/M Plus donne les principales 
commandes systèmes. 


BASIC plus 80 routines sur Amstrad, par Michel Martin (Editions du P.S.I.) : 
Pour pousser votre Amstrad au maximum de ces capacités : 80 routines de simula- 
tion d'instructions qui n'existent pas en BASIC Amstrad. 


Périphériques et gestion de fichiers sur Amstrad, CPC 464, 664 et 
61 28, par Daniel-Jean David (Editions du P.S.I.) : 
Cet ouvrage s'adresse aux lecteurs, déjà initiés à l'Amstrad, souhaitant programmer 
tous les périphériques des CPC 464, 664 et 6128 et programmer des appplications 
utilisant des fichiers sur cassette ou sur disquette. 


POUR MIEUX CONNAITRE LE SYSTEME DES CPC 


(e) 


Clefs pour Amstrad — 1. système de base, par Daniel Martin (Editions du 
PS: 

Mémento présentant synthétiquement le jeu d'instructions du Z80, les points d'entrée 
des routines système, les connecteurs et brochages, etc. 

Le livre de chevet du programmeur sur Amstrad. 


Clefs pour Amstrad — 2. système disque, par Daniel Martin et Philippe Jadoul 
(Editions du P.S.I.) : 

Ce deuxième tome consacré au système disque présente les points d'entrée des 
routines disque, les blocs de contrôle, la programmation et les brochages des circuits 
spécialisés. La deuxième partie du livre est aussi destinée aux possesseurs 
d'Amstrad 8256. 
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0 CP/M plus sur Amstrad, par Yvon Dargery (Editions du P.S.I.) : 
Toutes les commandes CP/M et CP/M Plus pour maîtriser le système des 6128 et 
8256 : un ouvrage de référence illustré par de nombreux programmes. 


0 Le livre de l’Amstrad — Tome 1, par Daniel Martin et Philippe Jadoul (Editions 
du P.S.I.) 
Ce livre, destiné aux programmeurs des CPC 464, 664 et 6128, donne une étude 
complète de tous les circuits internes, et analyse la structure interne du BASIC. Vous 
y trouverez, en outre, une étude complète des RSX, et des programmes de scrolling, 
de traçage de rectangles, de coloriage de surface et de manipulation vectorielle. 





ÿ Achevé d'imprimer par l'imprimerie Tardy Quercy S.A. à Bourges 
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Votre avis nous intéresse 


Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le 
présent ouvrage. 


— Ce livre vous donne:t-il toute satisfaction ? 





Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous ne manquerons 
pas de vous répondre directement. 


Où avez-vous acheté ce livre ? 


O cadeau Q librairie O autres 
CO exposition Ü boutique micro 

Comment en avez-vous eu connalssance ? 

© publicité Ü catalogue O autres 
CO exposition Û conseils d'un ami 


Avez-vous déjà acquis des livres P.S.I. ? 
lesquels 2:28 mnt due . 





NOM er he au É ….…… Age... 
Adresse A li ét 
Profession . . us A nee 
Centre d'intérêt . 










CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 





Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 
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CPC 464, 664 ET 6128 


2. PROGRAMMES ET FICHIERS 





C: deuxième tome de "BASIC Amstrad” vous propose de 
mettre en pratique tout ce que vous savez du BASIC des CPC 464, 
664 et 6128, grâce à: 

e des programmes graphiques qui vous feront apprécier la qualité 
de la haute résolution ainsi que l'étendue de la gamme de couleurs 
de l'Amstrad ; 

e des programmes de gestion de fichiers qui vous permettront 

de réaliser un mailing, d'éditer des étiquettes, de créer 

des histogrammes, etc. ; 

e des jeux qui vous étonneront par leur rapidité d'exécution ; 

e des programmes éducatifs, enfin, qui feront de votre Amstrad 

un répétiteur patient et attentif. 

Tous les programmes de ce livre fonctionnent sur les trois modèles 


Amstrad : CPC 464, CPC 664 et CPC 6128. 
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